Delphi-Quellcode:
type
TMyEvent = procedure; //Hier Eventuell noch Parameter festlegen
//TMyEvent = procedure (MyVar1, MyVar2 : String);
TMyClass = class
public
OnChangeList : TMyEvent;
procedure MachWas;
end;
...
procedure TMyClass.MachWas;
begin
if assigned(OnChangeList) then
OnChangeList;
end;
Sobald OnChangeList belegt ist, dann wird es in MachWas ausgeführt.
Du müsstest in der MainForm dein Event noch belegen:
InstanzVonTMyClass.OnChangeList := ProcedureZumAbarbeitenVonChangeList;
Das ganze lässt sich noch mit property, etc. verfeinern, aber so sollte es erstmal funktionieren.
Du musst deine Klasse zur Laufzeit erstellen und ein Event zuordnen. Wenn du das zur
Design-Time machen willst, dann musst du das als Komponente programmieren.
Ersteres ist aber zum schnellen Testen von Änderungen optimaler, da man bei der 2. Variante die Komponente erst neu installieren müsste.
P.S. Nächstes mal: Neue Frage, neuer Thread
