![]() |
Codes für KeyPress Ctrl shift delete Pfeil
Hallo
ich möchte den Panel mit der Tastatur verschieben und seine Größe ändern Zum Beispie mit der Taste Pfeil rechts rechts verschieben und mit Ctrl + Pfeil rechts die Breite vergrößern wo kann ich die Liste alle Keys in Internet finden? momentan benötige ich diese keys Onkeypress: Ctrl + C OnkeyPress Ctrl + V OnkeyPress Ctrl + S OnkeyPress Delete OnkeyPress Ctrl + Arrow (left) OnkeyPress Ctrl + Arrow (Right) OnkeyPress Ctrl + Arrow (up) OnkeyPress Ctrl + Arrow (Down) OnkeyPress Shift + Arrow (Down) OnkeyPress ... |
Re: Codes für KeyPress Ctrl shift delete Pfeil
Du solltest es statt mit OnKeyPress besser mit OnKeyDown/OnKeyUp versuchen, dann bekommst du nebem dem Tastencode auch noch den ShiftState mitgeliefert. Die entsprechenden Konstanten für die virtuellen Keycodes stehen in Windows.pas und beginnen alle mit "VK_" (z.B. VK_LEFT für "Pfeil links"). Bitte nicht vergessen, Form.KeyPreview auf True zu setzen, sonst klaut dir irgendein Control die Tastendrücke.
|
Re: Codes für KeyPress Ctrl shift delete Pfeil
Eine Liste der virtuellen Keycodes kann man auch
![]() |
Re: Codes für KeyPress Ctrl shift delete Pfeil
Zum Beispiel
![]() Der Zustand der Sondertasten (STRG, Umschalt und Alt) wird zu dem in einer Bitmaske (?) beim AUfruf von OnKeyUp / Down mitgegeben (Beispiele zur Handhabung sollten sich hier im Forum genügend finden)... (Mist, wieder zu langsam...) |
Re: Codes für KeyPress Ctrl shift delete Pfeil
OK, nun möchte ich den Code nicht in OnkeyDown :
Delphi-Quellcode:
sondern in Onkeypress möchte ich den Code verwenden
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin if Key = Ord('C') then caption:='Taste C'; // OK end;
Delphi-Quellcode:
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin if key =#27 then caption:='esc'; // OK if key = Ord('c') then caption:='Taste C'; // Passiert nichts if key =#43 then caption:='Taste C'; // auch nichts end; |
Re: Codes für KeyPress Ctrl shift delete Pfeil
Delphi-Quellcode:
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin Caption:='Taste '+Key; end; |
Re: Codes für KeyPress Ctrl shift delete Pfeil
Zitat:
|
Re: Codes für KeyPress Ctrl shift delete Pfeil
Und wo ist das Problem, dann werte Key aus.
|
Re: Codes für KeyPress Ctrl shift delete Pfeil
Hast du Form1.KeyPreview auf true gesetzt?
|
Re: Codes für KeyPress Ctrl shift delete Pfeil
Zitat:
ich möchte z.B. eine Showmessage sehen nur wenn die Taste C gedrückt wird |
Alle Zeitangaben in WEZ +1. Es ist jetzt 00:40 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz