Arrastar forms com o BorderStyle em bsNone
23/11/2011
0
Bom dia
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
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
+ 0
Responder
Posts
23/11/2011
Leonardo Xavier
você vai ter que trabalhar com a posição do mouse, se eu conseguir fazer um exemplo pra você hoje ainda, posto aqui até as 18:00 se não conseguir só vou conseguir na sexta. Qualquer coisa posta aqui. Abraços
Responder
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
Responder
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.
Responder
Clique aqui para fazer login e interagir na Comunidade :)
