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