Einzelnen Beitrag anzeigen

Benutzerbild von Bummi
Bummi

Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
 
Delphi XE3 Enterprise
 
#5

AW: IdIrc10 Prog soll sich selbst beenden

  Alt 26. Mär 2012, 17:22
Schick Deiner Anwendung per PostMessage die Anforderung zum Beenden, damit bist Du aus der Threadprozedur raus wenn die Anwendung abgeräumt wird.

Delphi-Quellcode:
const
  KillMessage = WM_USER + 200;
.......

    procedure Kill(var Msg: TMessage); message KillMessage;
......

Procedure TForm1.Killapp;
begin
 PostMessage(Handle,KillMessage,0,0) ;
end;


procedure TForm1.Kill(var Msg: TMessage);
begin
  ConnectionTimer.Enabled := false;
  irc1.Disconnect;
  irc1.Free;
  ssl1.Free;
  Application.Terminate;
end;
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)

Geändert von Bummi (26. Mär 2012 um 17:26 Uhr)
  Mit Zitat antworten Zitat