Fórum Mover form sem perder os eventos #252338

Amigos;
Estou usando o código abaixo para mover meu form sem título.
Mas acontece q ha alguns speedbutton neste form e os eventos onclick não estão funcionando mais mais.

Ha como contornar isso?



type
TForm1 = class(TForm)
private
{ Private declarations }
procedure WMNCHitTest(var Msg: TMessage);
message WM_NCHitTest;

public
{ Public declarations }
end;

var
Form1: TForm1;

implementation
{$R *.dfm}

procedure TForm1.WMNCHitTest(var Msg: TMessage);
begin
if GetAsyncKeyState(VK_LBUTTON) < 0 then
Msg.Result := HTCAPTION
else
Msg.Result := HTCLIENT;
end;

end.