Hotkey to String

[ebber]

Ja

[DGL-luke]

Sodele, hab mal was zusammengepackt für dich.

[ebber]

Danke.


Aber wie würde das jetzt andersrum aussehen ?

Delphi-Quellcode:

JvHotKey1.Hotkey:=SendMessage(Edit1.Handle,HKM_SETHOTKEY,0,0);

so irgendwie?

MfG

[DGL-luke]

Nein.

HKM_SETHOTKEY

SendMessage(JvHotKey1.Handle, HKM_SETHOTKEY, SavedHotKeyValue, 0);

[ebber]

Da immer A bei mir rauskommt vermute ich, ich habe wieder was falsch gemacht.

Delphi-Quellcode:

const
  HKM_GETHOTKEY           = WM_USER+2;
  HKM_SETHOTKEY           = WM_USER+2;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
  Edit1.Text := IntToStr(SendMessage(JvHotKey1.Handle,HKM_GETHOTKEY,0,0));
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
  JvHotKey2.Hotkey:=SendMessage(JvHotKey2.Handle, HKM_SETHOTKEY, 66, 0);    // 66 = B
end;
end.

[ebber]

*push*


Kann mir hier bitte jemand helfen.

MfG

[DGL-luke]

Hallo,

du musst da Virtual-Key Codes benutzen. Konstanten VK_...

Außerdem:

{JvHotKey2.Hotkey:=}SendMessage(JvHotKey2.Handle, HKM_SETHOTKEY, 66, 0);
Das auskommentierte bitte aus deinem Source entfernen, das gibt keinen Sinn.

[ebber]

Irgendwie habe ich das gefühl, dass das ganz einfach ist, ich aber nu mal wieder zu dabbig bin.

Was meinst du mit VK_ ? Es wäre dann ja zb VK_A oder VK_RIGHT aber ich hab doch erst GetHotkey gemacht und dann die Zahl bekommen. Und nicht VK_ ?

MfG

[DGL-luke]

Du bekommst natürlich nur Zahlenwerte. Aber diese Zahlenwerte sind Virtual-Key Codes.

Zum setzen musst du diese virtual-Key Cdes benutzen.

Anzeigen kannst du sie jederzeit mit einer THotkey-Komponente. Und speichern und laden über die Messages.

[ebber]

Ist ja alles einleuchtend irgendwie was du schreibtst aber .

Delphi-Quellcode:

var
  Form1: TForm1;
  a : integer;

  const
  HKM_GETHOTKEY           = WM_USER+2;
  HKM_SETHOTKEY           = WM_USER-2;


implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text := IntToStr(SendMessage(JvHotKey1.Handle,HKM_GETHOTKEY,0,0));
end;

procedure TForm1.Button2Click(Sender: TObject);
begin

//1.
SendMessage(a, HKM_SETHOTKEY, 66, 0);
Edit1.text:=inttostr(a);


//2.
SendMessage(JvHotKey2.Handle, HKM_SETHOTKEY, 66, 0);

end;

Also so habe ich das jetzt aber bei 1. kommt 0 raus (geht das überhaupt so) ?
Und bei 2. passiert gar nichts.
Button1Click geht wunderbar.

Ich glaube ein ganz kurzes Beispiel sagt mehr als 1000 Posts; Ich möchte hier die lieben Leute nicht so arg nerven.

MfG