Fórum Arrastar forms com o BorderStyle em bsNone #409660
23/11/2011
0
Estou precisando saber como posso fazer, para arrastar na tela um formulário que esteja com o BorderStyle em bsNone.
Alguém sabe ?
Desde já agradeço
Johnathan
Curtir tópico
+ 0Posts
23/11/2011
Leonardo Xavier
Gostei + 0
23/11/2011
Ewerton Rodrigues
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;
Este é um exemplo
o código mesmo é este
const sc_DragMove = $f012; begin ReleaseCapture; Perform(wm_SysCommand, sc_DragMove, 0);
o const né
begin
comandos
end;
é isto funcionará em QUALQUER componente que tenha este mesmo Evento MouseDown não testei em outras Eventos Mas acho que é só neste
Flw
Gostei + 0
29/11/2011
Johnathan
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;
Este é um exemplo
o código mesmo é este
const sc_DragMove = $f012; begin ReleaseCapture; Perform(wm_SysCommand, sc_DragMove, 0);
o const né
begin
comandos
end;
é isto funcionará em QUALQUER componente que tenha este mesmo Evento MouseDown não testei em outras Eventos Mas acho que é só neste
Flw
Vlw Ewerton, funciono perfeitamente.
Gostei + 0
30/11/2011
Johnathan
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)