Solange eine Taste gedrückt wird

[Chris237]

Hallo Leute,

Ich würde gerne in einem Programm implementierend das wenn ich eine Taste z.B. 'l' drücke ein Panel grün wird und sobald ich wieder loslasse das Panel schwarz wird.

leider habe ich bis her noch keine Lösung gefunden.

Vielleicht hat einer von euch eine Idee.

Danke für die Hilfe

Gruß

[wp_xyz]

Das Formular reagiert auf die Ereignisse OnKeyDown und OnKeyUp. Dort kannst du das gewünschte Verhalten einbauen. Falls sich auf dem Formular neben dem Panel auch weitere Controls befinden, insbesondere solche, die selbst Tastaturereignisse empfangen können, musst du noch die Eigenschaft KeyPreview des Formulars auf true stellen, sonst werden die Tastaturereignisse vom fokussierten Control bearbeitet und nicht bis zum Formular weitergeleitet.

Also:

• auf OnKeyDown des Formulars doppelt klicken, im erscheinenden Methoden-Rumpf den Code eintragen, um das Panel grün einzufärben (Panel1.Color := clGreen)
• auf OnKeyUp des Formulars doppelt klicken, im Methoden-Rumpf das Panel schwarz färben
• ggfs. die Eigenschaft KeyPreview des Formulars auf true setzen

[fliegermichl]

...und in Onkeydown prüfen, ob Key = ORD('L') ist.

[Mathias]

...und in Onkeydown prüfen, ob Key = ORD('L') ist.

Für diesen Zweck, gibt es schon vordefinierte Konstanten in der Unit LCLType.

Code: Alles auswählen

if Key = VK_L then ....

[fliegermichl]

So ist natürlich noch besser. In der Zeit als ich programmieren gelernt habe, gab es das noch nicht.

[Mathias]

Das ging mir auch so, man lernt immer wieder dazu.