halt; und Application.terminate funktioniert nicht

[Obstfliege]

Wie der Titel schon sagt funktioniert bei meinem Programm halt; und Application.terminate nicht.

Dies wird im OnThread (wenn der Thread seine Arbeit erledigt hat) aufgerufen.
Die Threads müssten destroyt sein da FreeOnTerminate:=True;

hat einer ne Ahnung was das sein könnte?

[Dax]

Wird es denn überhaupt aufgerufen? Wenn du unsicher bist, setz mal nen Breakpoint und überprüfe das ;)

[alzaimar]

Du kannst nicht erwarten, das deine Anwendung auf der Stelle stehen bleibt, nur weil Du Halt oder Application.Terminate aufrufst. Rufe in deinem OnThreadTerminate lieber "MainForm.Close" auf, das dürfte besser funktionieren. Wenn die Anwendung in einem untergeordneten Fenster beschließt, zu terminieren, musst Du das dem Hauptformular mitteilen.

Die innere Botschafsverarbeitungsschleife muss schließlich ordendlich verlassen werden. Außerdem solltest Du der Anwendung die Chance geben, ordendlich aufzuräumen.

[Obstfliege]

Code:

procedure TMainForm.OnThread;
begin
  EdFile.Show;
  Progressbar.Hide;
  Link:=Receive;
  EdFile.Text:=Receive;
  if CopyToClipboardAfterParameterUpload then
    Clipboard.AsText:=Link;
  if CloseAfterParameterUpload and IsParameterUpload then
  begin
    halt;
    Application.Terminate;
  end;
end;

ich habe es mit einer showmessage getestet er geht in die if anweisung rein!
dort habe ich nun halt und Application.terminate ausprobiert und beides geht nicht.

[alzaimar]

Versuche es mit Close. Wenn das Hauptfenster geschlossen wird, terminiert die Anwendung. Alles andere ist imho unsauber.

[Obstfliege]

Lösung: Dies in OnThreadTerminate packen. Dann gehts...

Danke für eure Hilfe