Re: Hotkey to String
Ja
|
Re: Hotkey to String
Liste der Anhänge anzeigen (Anzahl: 1)
Sodele, hab mal was zusammengepackt für dich.
|
Re: Hotkey to String
Danke. :-D :thumb:
Aber wie würde das jetzt andersrum aussehen ?
Delphi-Quellcode:
so irgendwie?JvHotKey1.Hotkey:=SendMessage(Edit1.Handle,HKM_SETHOTKEY,0,0); MfG |
Re: Hotkey to String
Nein.
HKM_SETHOTKEY
Delphi-Quellcode:
SendMessage(JvHotKey1.Handle, HKM_SETHOTKEY, SavedHotKeyValue, 0);
|
Re: Hotkey to String
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. |
Re: Hotkey to String
*push*
Kann mir hier bitte jemand helfen. MfG |
Re: Hotkey to String
Hallo,
du musst da Virtual-Key Codes benutzen. Konstanten VK_... Außerdem:
Delphi-Quellcode:
{JvHotKey2.Hotkey:=}SendMessage(JvHotKey2.Handle, HKM_SETHOTKEY, 66, 0);
Das auskommentierte bitte aus deinem Source entfernen, das gibt keinen Sinn. |
Re: Hotkey to String
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 |
Re: Hotkey to String
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. |
Re: Hotkey to String
Ist ja alles einleuchtend irgendwie was du schreibtst aber :pale: .
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 |
Alle Zeitangaben in WEZ +1. Es ist jetzt 00:58 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz