Tastatureingaben einbinden...

[mosquito]

Hiho Leutz,

Also ich hab mal ne frage:
wenn ich eine procedure für zB. "Pfeil nach links" taste haben möchte, wie kann ich das realisieren???

[marabu]

Hi.

Erzeuge dir eine Action und verpasse der den Shortcut "Nach Links". Die Action klinkst du dann bei einer passenden Komponente auf deiner Form ein - MenuItem, Button, ...

Grüße vom marabu

[EDatabaseError]

oder du löst eine deklarierte Prozedur OnKeyDown aus.

[mosquito]

Nein, ich möchte das ja gerne für jede beliebige taste machen...

[DGL-luke]

Naja... da gibts n paar elegante Möglichkeiten. Du kannst z.B. ein array[$0..$FE] of procedure machen, das dann im OnKeyUp einfach keyarray[Key] macht. du kannst damit jeder taste ziemlich einfach einen event zuweisen.

Oder du machst es im KeyUp mit einer Case-Anweisung. Geht auch.

[ichbins]

Du kanns doch onkeydown nehmen und mit case abfragen.

Delphi-Quellcode:

case key of 37: //Links
            38: //Oben
            39: //Rechts
            40: //Unten
            65: //A
end;
if ssshift in shiftstate then //Shift gedrückt

ausprobieren kannst du mit showmessage(inttostr(key));

[Pfoto]

Wenn du global in deinem Programm die KeyCodes auffangen willst, vergess nicht, im Hauptformular "KeyPreview" auf True zu setzen. Damit verhinderst du, dass evtl. die Komponente, die gerade den Fokus hat, etwas (unbeabsichtigtes) aufgrund des Tastedrucks macht.

Gruß
Pfoto