Ich will mein Programm nun mit Tasten (KeyPress) steuern können. Dazu habe ich folgende Prozedur geschrieben:
Delphi-Quellcode:
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
case Key of
#48: begin ShineNot(0); SNot(0) end;
#49: begin ShineNot(1); SNot(1) end;
#50: begin ShineNot(2); SNot(2) end;
#51: begin ShineNot(3); SNot(3) end;
#52: begin ShineNot(4); SNot(4) end;
#53: begin ShineNot(5); SNot(5) end;
#54: begin ShineNot(6); SNot(6) end;
#55: begin ShineNot(7); SNot(7) end;
end;
end;
Also ich will mit den Tasten 1-8 verschiedene Prozeduren aufrufen. Nur leider kommt nachher gar nichts, wenn ich eine der Taste drücke...
Was habe ich da falsch gemacht?