Naja, so wie man halt Messages sendet

1. Du brauchst im Thread das Handle des Formulars. z.B. indem du ein public-Feld machst, und das Formular tut dann sein Handle da rein.
2. Nachricht definieren:const WM_ThreadFinished = WM_USER + 1234; 3. Wenn der Thread fertig ist:

markieren

Delphi-Quellcode:

  Result := checkSourcecode(Sourcecode);
  if not(Result)
    begin
      Self.Terminate;
      PostMessage(FormHandle, WM_ThreadFinished, Integer(Result), 0);
    end;

Im Hauptthread kannst du dann eine Methode implementieren, die genau auf diese Nachricht reagiert (message-Direktive) und da dann die Dialogbox darstellen und den Thread neu starten (vorher warten bis der alte abgearbeitet ist)


Alternativ kannst du auch einen neuen Thread kreieren ( halt MyThread = TMyThread.Create() ) und immer Freeonterminate auf true setzen. Dann startest du nicht einen Thread immer neu, sondern kreiert immer neue Threads, die sich nicht ins Gehege kommen. Dann kannst du dir den Message-Kram sparen - das ist definitiv die einfachere Lösung weil man sich um die Freigabe des Threads nicht mehr kümmern muss

Hi,

vielen Dank für deine Hilfe.
Nun funktioniert alles so, wie ich es möchte.

Die Message-Direktiven sind wirklich sehr nützlich.
Das Formular hatte ich bereits an den Thread weitergegeben und somit besaß ich auch das Handle.

Ganz verstanden hab ich das jetzt aber noch nicht.

Ich habe bei PostMessage 4 Parameter: Form-Handle, Message-Code, Param1, Param2
Wobei Param nachrichtenspezifische Werte sind.
Können die jeden Variablen-Typ annehmen? (Integer hast du ja oben geschrieben, was ist mit String, etc.?)

Des Weiteren heißen meine Procedures folgendermaßen: procedure WMLogin(var msg: TMessage); message WM_Login; Warum muss der erste Parameter TMessage sein? Sind die 2 nachrichtenspezifischen Parameter in TMessage enthalten?

gruß
Timelesk

Zitat von Timelesk:

Hi,

vielen Dank für deine Hilfe.
Nun funktioniert alles so, wie ich es möchte.

Schön zu hören

Zitat:

Ich habe bei PostMessage 4 Parameter: Form-Handle, Message-Code, Param1, Param2
Wobei Param nachrichtenspezifische Werte sind.
Können die jeden Variablen-Typ annehmen? (Integer hast du ja oben geschrieben, was ist mit String, etc.?)

Nein, die können jeweils nur 4 Byte aufnehmen (bzw. 8 Byte in x64 Anwendungen) - damit kann man wunderbar einen Integer übertragen, aber für Strings muss man dann Pointer hernehmen.

Zitat:

Des Weiteren heißen meine Procedures folgendermaßen: procedure WMLogin(var msg: TMessage); message WM_Login; Warum muss der erste Parameter TMessage sein? Sind die 2 nachrichtenspezifischen Parameter in TMessage enthalten?

1. Weil Delphi das so will, 2. Ja. TMesdsage ist ein Record in dem die Parameter drin sind. Oben habe ich Result nach Integer gecastet und in den 1. Parameter gesteckt. Den kannst du hier wieder zurück casten und auswerten (wenn du möchtest)

Hi,

vielen Dank für deine Hilfe.
Hab ein wenig mit dem Record rumgespielt und funktioniert wunderbar.

Vielen Dank noch einmal

gruß
Timelesk