Easymove

[synex]

Ich habe folgendes Problem:
Meine Form2 soll sich rumschieben lassen, egal wo man hinklickt auf der Form (Wie bei Winamp). Ich habe dazu ein folgenden code verwendet:

Delphi-Quellcode:

private
    { Private declarations }
  procedure WMNCHitTest(var M: TWMNCHitTest); message wm_NCHitTest;

//blablabla

procedure TForm2.WMNCHitTest (var M: TWMNCHitTest);
begin
  inherited;
  if M.Result = htClient then
    M.Result := htCaption;
end;

Jetzt funktioniert aber mein SpeedButton nicht mehr, wenn ich auf ihn klicke bewege ich auch nur die Form.

Wie kann ich den Button wieder dazu bringen seine OnClock-Procedure auszuführen?


Mein 2. Problem:

ich habe meinem Programm jetzt einen HotKey zugewiesen (siehe hier )
Wie kann ich durch ein HotKey-Editfeld den Hotkey ändern?

danke schonmal,
der synex