|
Registriert seit: 4. Mär 2007
Ort: Sponheim
1.021 Beiträge
Delphi XE2 Professional
|
Re: Problem mit FormKeyPress
2. Sep 2008, 19:24
Das geht
Delphi-Quellcode:
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
const
VK_1 = $31;
VK_2 = $32;
VK_3 = $33;
begin
case ord(Key) of
VK_1: Mode := 1;
VK_2: Mode := 2;
VK_3: Mode := 3;
end;
end;
oder das
Delphi-Quellcode:
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
const
VK_1 = #$31;
VK_2 = #$32;
VK_3 = #$33;
begin
case Key of
VK_1: Mode := 1;
VK_2: Mode := 2;
VK_3: Mode := 3;
end;
end;
Marc 9 von 10 Stimmen in meinem Kopf sagen ich bin nicht verrückt, die 10. summt die Melodie von Tetris... | Wenn das die Lösung ist, dann hätte ich gerne mein Problem zurück! |  engbarth.es
|