Moin moin,
Zitat von
mumu:
ja das mit den Messages hab ich mir auch schon gedacht. Nur leider weiß ich im Thread ja nicht, wann ein Ereignis durch das Objekt ausgelöst wird
ja, in deinem Fall müsstest du SendMessage in deiner Form1.Ereignis1 aufrufen.
Um bei dem Beispiel von oben zu bleiben:
Delphi-Quellcode:
procedure TForm1.Ereignis1(Sender: TObject; Item: String);
begin
SendMessage(Form1.Handle, CHANGE_LABEL_CAPTION, 1, Integer(PChar(Item)));
end;