Einstieg in Server-/Clientprogrammierung

[halinchen]

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