Arrastar forms com o BorderStyle em bsNone

Delphi

23/11/2011

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

Johnathan

Johnathan

Curtidas 0

Respostas

Leonardo Xavier

Leonardo Xavier

23/11/2011

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
GOSTEI 0
Ewerton Rodrigues

Ewerton Rodrigues

23/11/2011

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
Johnathan

Johnathan

23/11/2011

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
Johnathan

Johnathan

23/11/2011

Como eu posso concluir esse chamando ?
GOSTEI 0
POSTAR