"255" dauerhaft auf LPT1 !

[LinuxFan]

Zitat von MrAndyG:

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?

oder einfach

Delphi-Quellcode:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
case Key of
  '1':  begin ShineNot(0); SNot(0) end;
  '2':  begin ShineNot(1); SNot(1) end;
  '3':  begin ShineNot(2); SNot(2) end;
  '4':  begin ShineNot(3); SNot(3) end;
  '5':  begin ShineNot(4); SNot(4) end;
  '6':  begin ShineNot(5); SNot(5) end;
  '7':  begin ShineNot(6); SNot(6) end;
  '8':  begin ShineNot(7); SNot(7) end;
end;
end;

und nicht vergessen:

Form1.KeyPreview := true;