Programm soll immer mit ESC beendet werden können

urbanchaos · Beiträge: 82 Win xp Delphi 2005 Pers./7 enterprise

Hi
ich bins schon wieder

so wie kann ich in ein Programm programmieren, sodass es sich immer über die Tasten "ESC" beenden lässt, egal wo man sich im programm befindet?

Moderiert von Tino: Topic aus Delphi Language (Object-Pascal) / CLX verschoben am Do 22.09.2005 um 16:16
Moderiert von Tino: Titel geändert.

flieger-michl · Hält's aus hier Beiträge: 14 W2K, Linux D5, FPC

Hallo,

Füge eine ApplicationEvents Komponente in das Hauptformular ein.
Im Ereignishandler für OnMessage dann diesen Code:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
 if (Msg.message = WM_KEYDOWN) and
    (Msg.wParam = VK_ESCAPE) then Application.Terminate;
end;

Gruß
Michl

Moderiert von Tino: Delphi-Tags hinzugefügt.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme