Hallo,
ich habe mit folgendem Programm das Problem, dass nach ändern der Borderstyle ein RECREATE ausgeführt wird und sich somit das HND vom Form1 ändert. Folglich gehen auch die HOTKEY'S nicht mehr.
So nun erstmal CODE:
Delphi-Quellcode:
procedure TForm1.WMHotKeyReg;
var hk_id_A :integer;
hk_id_B :integer;
hk_id_C :integer;
begin
hk_id_A:=1;
hk_id_B:=2;
hk_id_C:=3;
if(RegisterHotKey(Form1.Handle,hk_Id_a,0,WORD('1'))) then
if(RegisterHotKey(Form1.Handle,hk_Id_b,0,WORD('2'))) then
if(RegisterHotKey(Form1.Handle,hk_Id_c,0,WORD('3'))) then
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
WMHotKeyReg;
end;
procedure TForm1.WMHotKey(var Msg: TWMHotKey);
begin
if(msg.HotKey = 1) then Showmessage('Taste 1');
if(msg.HotKey = 2) then Showmessage('Taste 2');
if(msg.HotKey = 3) then Form_Stil;
end;
procedure TForm1.form_stil;
begin
Form1.BorderStyle:=bsSingle;
end;
Das ganze ist Teil eines grösseren Projektes und es hängen an dem HND noch mehrere Forms und CHILD'S. Ich muss also irgendwie erreichen das durch das setzen von BORDERSTYLE kein RECREATE ausgeführt wird bzw. ich das alte HND behalte.
Hat dazu jemand eine Idee?
DANKE
Gruss wsks