Erste Schritte Multi-Threading

[himitsu]

z.B. dort, wo der Thread dekaliert ist, oder in einer gemeinsam genutzten Unit wird eine Event-Signatur deklariert
type TMyEvent = procedure(.....) of object;
Das als Parameter, Setter-Funktion oder Property in die ThreadKlasse.
Und schon kann die Form eine "gleich" aufgebaute Objekt-Methode an das übergeben.

Entsprechend dem
OnGetTime := Write_Uhr
und

Delphi-Quellcode:

   if Assigned(FTimeValue) then
      FTimeValue(TimeValue);