Taste ermitteln

[Matze]

Hi!

Ich hab hier leider nichts dazu gefunden. :roll:

Wie mache ich es, dass im Label 'F1' erscheint, wenn ich auf F1 drücke.

Das mit allen Tasten, also auch pos, einfg, ...


Oder muss ich für jede Taste den ASCII-Code diesem String zuordnen?
Bissle umständlich. ;)

[Robert_G]

In der Unit "Menus" befinden sich zwei nette Funktionen

• ShortCutToText
  StrVar := ShortCutToText(ActionXYZ.ShortCut);
• TextToShortCut
  AcionXYZ.ShortCut := TextToShortCut('Ctrl+N');

... was so eine kurze OH -Suche nach "shortcut string" so alles ans Tageslicht bringt. :mrgreen:

[CReber]

blubb ^^ zu langsam ;)

[Matze]

Oh danke, danach hätte ich nie gesucht. ;)

[Matze]

Hmm

Delphi-Quellcode:

procedure TForm1.EdtKeyKeyPress(Sender: TObject; var Key: Char);
begin
  EdtKey.Clear;
  EdtKey.Text := ShortCutToText(PChar(Key));
end;

Hab grad nen Blackout. :mrgreen:
Wie löse ich das? :gruebel:

[Robert_G]

:lol: Bei deiner OH -Recherche solltest du auch über dir Funktion ShortCut gestolpert sein
Versuch's mal im OnKeyDown (Da bekommst du auch den ShiftState)

Delphi-Quellcode:

var
 TempShortCut :TShortCut;
begin
  TempShortCut:= ShortCut(Key, shift);
  Edit1.Text := ShortCutToText(TempShortCut);
  ...

[tommie-lie]

Nanana, wozu denn gleich 'nen Shortcut missbrauchen?
Da Matze ja schon ein fortgeschrittenerer User ist, werfe ich einfach mal mit GetKeyNameText um mich, zu finden im SDK.

[Matze]

@Robert_G: Danke!

@tommie-lie:

Zitat:

Zitat von tommie-lie

Da Matze ja schon ein fortgeschrittenerer User ist, werfe ich einfach mal mit GetKeyNameText um mich, zu finden im SDK.

Danke, ist ja echt cool die Funktion!