Mover Tela

[Darlan]

Galera..

Gostaria de saber se tem como eu mover uma tela de um programa, clicando no corpo da mesma, hoje para mover uma tela preciso clicar na barra de títulos e arrastar para o local desejado, teria como eu arrastar esta tela clicando em qualquer parte dela...?

Darlan...

[bebe]

adicionando um botão você pode fazer do seguinte modo no on click do botão.

begin

form1.Top := form1.Top +10;

end;

não sei se é isso q você quer

[s3c]

    procedure WndProc(var Msg:TMessage); override;
private
    Posicao:TPoint;

procedure TForm1.WndProc(var Msg:TMessage);
begin
  inherited;
  Case Msg.Msg of
    WM_LBUTTONDOWN : Posicao := Mouse.CursorPos;
    WM_LBUTTONUP : Posicao.X := 0;
    WM_MOUSEMOVE : if Posicao.X > 0 then
                     begin
                       Left := Left + Mouse.CursorPos.X - Posicao.X;
                       Top  := Top + Mouse.CursorPos.Y - Posicao.Y;
                       Posicao := Mouse.CursorPos;
                     end;
  end;
end;

[Darlan]

Era isso mesmo, obrigado deu certo...

Darlan