Event in Thread

[stahli]

Delphi-Quellcode:

  TMyThread=class(TThread)
   private
     fOnSendAnMain: TOnSendAnMain;
     procedure DoSendAnMain(Irgendwas: string);
   public
     constructor Create(aOnSendAnMain: TOnSendAnMain); overload;
   end; 

constructor TMyThread.Create(aOnSendAnMain: TOnSendAnMain);
begin
  fOnSendAnMain := aOnSendAnMain;
  Create(False);
end;