OnKeyDown und Alt-Taste

[Mathias]

Wieso hat die Alt-Taste so ein merkwürdiges Verhalten ?
OnKeyDown, wird nur bei jeden 2. mal drücken der Alt-Taste ausgelöst. Der Key-Code für alt ist 18. OnKeyUp geht.
Die 17 ist die Ctrl-Taste, welche einwandfrei geht.

Code: Alles auswählen

procedure TForm1.FormKeyDown(Sender: TObject; var Key: word; Shift: TShiftState);
begin
  Writeln(Key);
end;
 
procedure TForm1.FormKeyUp(Sender: TObject; var Key: word; Shift: TShiftState);
begin
  Writeln('-', Key);
end;      

Ausgabe:

Code: Alles auswählen

17
-17
17
-17
17
-17
17
-17
18
-18
-18
18
-18
-18
18
-18
-18
18
-18
-18
18
-18

[m.fuchs]

Setz doch mal am Ende der KeyDown-Methode den Wert des Keys auf 0. Sonst wird das ALT an das Programm weitergeleitet und das führt zu deinem Problem.

[Mathias]

Danke, jetzt geht es.

Ich habe noch festgestellt, das die Alt-Taste das System-Menü öffnet. Ist wohl noch ein Überbleibsel von Win 3.1.

Dafür geht jetzt Alt+F4 nicht mehr.

[m.fuchs]

Dann mach das doch nur, wenn nur die ALT-Taste gedrückt wird:

Code: Alles auswählen

if Key = VK_MENU then Key := 0;