Veja como mover com o mouse um formulário sem bordas.
1 2 3 4 5 6 7 8 | procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); const sc_DragMove = $f012; begin ReleaseCapture; Perform(wm_SysCommand, sc_DragMove, 0); end; |
Mas há um detalhe importante, caso o formulário estiver sobre posto por outro
componente, como um panel ou image, o código escrito acima deve estar no evento
OnMouseDown deste componente.
1 2 3 4 5 6 7 8 | procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); const sc_DragMove = $f012; begin ReleaseCapture; Perform(wm_SysCommand, sc_DragMove, 0); end; |
Em resumo, o código deve estar no componente que você for clicar com o mouse.
Dúvidas ou sugestões deixe nos comentários do post.
Está gostando do conteúdo? Considere pagar um cafezinho para nossa equipe!
