Probleme mit Handle

**wsks**

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:

zusammenfalten · markieren

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

Probleme mit Handle

Probleme mit Handle

Forumregeln