Thema
:
Delphi
"255" dauerhaft auf LPT1 !
Einzelnen Beitrag anzeigen
LinuxFan
Registriert seit: 9. Jul 2007
Ort: Bensheim
20 Beiträge
RAD-Studio 2010 Arc
#
9
Re: "255" dauerhaft auf LPT1 !
10. Okt 2008, 17:40
Zitat von
MrAndyG
:
Ich will mein Programm nun mit Tasten (KeyPress) steuern können. Dazu habe ich folgende Prozedur geschrieben:
zusammenfalten
·
markieren
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
zusammenfalten
·
markieren
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;
Victor-Philipp Negoescu
ViaThinkSoft
http://www.viathinksoft.de
Zitat
LinuxFan
Öffentliches Profil ansehen
Mehr Beiträge von LinuxFan finden