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
1 2 3 4 5 6 7 8 | 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
1 2 3 4 5 | 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
1 2 3 4 5 6 7 8 | 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
1 2 3 4 5 | 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 :)