Alt-F4 Hotkey

[Gast]

Helft mir.
Ich soll für Win 98 eine Anmeldung programmieren und damit man das Programm nicht beenden kann, benötige ich die Funktion mit der man den Alt-F4 Hotkey sperren kann.

Kann mir da jemand helfen

Gruß PhilGo

[Lillebrohr]

Guten Tag PhilGo,

fang doch doch das Drücken der beiden Tasten in der OnKeyPress-Procedure ab.

Tschau

[Gast]

Danke, ich glaub was du meinst, aber ich weis nich genau wie das geht.
Kanst du mir helfen.

PhilGo

[Lillebrohr]

Guten Tag,

Das habe ich im EDH gefunden:

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if (ssShift in Shift) and (Key=ord('A')) then
   Showmessage('OK');
end;

Hiermit wird abgefragt ob die Shift und A gedrückt wurde.
hoffe das reicht für den Anfang.

PS : Die Eigenschaft KeyPreview des Formulars sollte dabei auf True stehen.

[Gast]

Ich danke dir recht herzlich. Mein Retter.

Schreib mal enn du Hilfe brauchst:

[e-mail]

[Trouble_Maker]

Tachschen ...

versuchs mal damit: (klappt!)

Code:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
 CanClose:=FALSE; //verhindern, Alt+ F4 = schließen
end;

das musst du im Objectinspektor bei Form1 unter Ereignisse einstellen!

um nun das programm beenden zu können (weil jetzt auch das kleine Schließen-Kreuz nicht mehr funktioniert, musst du anstatt "close;"
"application.terminate" schreiben.

hoffe ich habe dir geholfen


cu Trouble_Maker

[Luckie]

Um es noch mnal deutlich zu machen. Den einzigen brauchbaren Vorschlag hat Trouble_Maker geliefert.

[Trouble_Maker]

Zitat von Luckie:

Um es noch mnal deutlich zu machen. Den einzigen brauchbaren Vorschlag hat Trouble_Maker geliefert.

*geehrtfühl*


cu Trouble_Maker

[Gast]

Danke vielmals.
Ihr habt mir sehr geholfen und ich glaub, dass ich das in mein Anmeldeprogramm rein tue.

Ciao PhilGo

[PhilXX]

Wer war denn PhilGo? Wie konnte der sich als Gast anmelden. *verwirrt*