Namen der virtuellen Tastencodes

[Mazel]

Hi,

ich habe jetzt mal versucht das ganze umzusetzen, leider habe ich kein großen Erfolg:

Delphi-Quellcode:

procedure TForm7.ListViewClick(Sender: TObject);
// Klick auf das ListView
begin
  EditHotkey.HotKey:=ShortCut;
  EditHotkey.Modifiers:=Modifier;
  Edit1Action.Text:=ListView.Selected.Caption;
  EditHotkey.HotKey:=TextToShortCut(ListView.Selected.SubItems[0]);
end;

procedure TForm7.BtnOKHotkeyClick(Sender: TObject);
// das zurückschreiben in die ListView
begin
  ListView.Items[ListView.Selected.Index].SubItems[0]:=UpperCase(ShortCutToText(EditHotkey.HotKey));
  ShortCut:=EditHotkey.HotKey;
  Modifier:=EditHotkey.Modifiers;
  EditHotkey.Modifiers:=[];
  EditHotkey.HotKey:=0;
end;

procedure TForm7.FormCreate(Sender: TObject);
// beim Erzeugen der Form
begin
 ShortCut:=EditHotkey.HotKey;
 Modifier:=EditHotkey.Modifiers;
 EditHotkey.Modifiers:=[];
 EditHotkey.HotKey:=0;
end;

Ist das so wie du es gemeint hast?

Gruß
Mazel