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);