urbanchaos - Do 22.09.05 16:05
Titel: Programm soll immer mit ESC beendet werden können
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 - Do 22.09.05 16:12
Hallo,
Füge eine ApplicationEvents Komponente in das Hauptformular ein.
Im Ereignishandler für OnMessage dann diesen Code:
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.