Kod: Tümünü seç
procedure TFRM_Main.DistributeEvent(const Event: Integer);
var I: Integer;
P: Pointer;
function HasProperty(Obj: TObject; Prop: string): PPropInfo;
begin
try
Result := GetPropInfo(Obj.ClassInfo, Prop);
except
Result := nil;
end;
end;
begin
try
for I := 0 to Screen.FormCount - 1 do begin
try
if (Screen.Forms[I] <> nil) and (Screen.Forms[I].Name <> '') then begin
P := HasProperty(Screen.Forms[I], 'OnEventCame');
if P <> nil then SetOrdProp(Screen.Forms[I], P, Event);
end;
except
end;
end;
except
end;
end;