Como eu faço para mover o form apos setar a propriedade BorderStyle = bsNone
?
Pois em as bordas não consigo arrastar o formulário com o mouse.
-
Você já tem algum código pronto para que possa ser analisado?– user82731Commented 15/04/2019 às 20:06
-
Não tenho. Eu só coloquei a propriedade BorderStyle = bsNone no Object Inspector.– user64046Commented 15/04/2019 às 20:07
Adicione um comentário
|
1 Resposta
Achei isso em um forum, tenta ai para ver se funciona.
procedure TFormPrincipal.ImageFundoMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
const
sc_DragMove = $f012;
begin
ReleaseCapture;
Perform(wm_SysCommand, sc_DragMove, 0);
end;
-
blz cara. vou testar aqui para ver se funfa.– user64046Commented 15/04/2019 às 20:10