Forum: Programmieren allgemein
by Jeopardize,
2. Sep 2008
okay, habe den Fehler gefunden, man muss anstatt $ # nehmen :wall:
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
const
VK_1 = #31;
VK_2 = #32;
VK_3 = #33;
begin
case Key of
VK_1: MMode := 1;
VK_2: MMode := 2;
Forum: Programmieren allgemein
by Jeopardize,
2. Sep 2008
ich habe es mal ausprobiert, ändert nur die Fehler:
Forum: Programmieren allgemein
by Jeopardize,
2. Sep 2008
hm, nein, da kommen noch immer die gleichen Fehler. :(
Mode ist einfach nur ein Integer den ich deklariert habe.
Ich möchte das er bei den Tasten 1,2,3 die ensprechenden Werte hat.
Forum: Programmieren allgemein
by Jeopardize,
2. Sep 2008
Hi ich habe ein Problem, der folgende Code funktioniert nicht:
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;