Mover um Form clicando em algum controle, e n�o no t�tulo

Question

Preciso mover um form que possui a propriedade BorderStyle = bsNone e pra isso pensei em colocar um Panel na parte superior do form fazendo as vezes de t�tulo e funcionou perfeitamente.Meu grande prob...

Dataclass · Answer

Thiago,Voc� pode implementar controles usando as Propriedades Left e Top do Form.Ex:um bot�o que o coloque no topo da tela,outro que o coloque do lado esquerdo etc......

Cyber · Answer

[code:1:1a74635c80]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.[/code:1:1a74635c80]...

F�rum Mover um Form clicando em algum controle, e n�o no t�tulo #241108