Buscar

Movendo Form sem Barra de Titulo

Código

Declare as variaveis publicas
xxx, yyy: integer;
Captura : Boolean;

Depois implemente o codigo aseguir onde desejar o comando de movimento nesse caso eu usei um Timagem

procedure TMSN.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
xxx:= x;
yyy:= y;
Captura := true
end;

procedure TMSN.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
Captura := False;

end;

procedure TMSN.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if Captura = True then
  begin
   Screen.ActiveForm.Left := Screen.ActiveForm.Left + X - xxx;
   Screen.ActiveForm.Top := Screen.ActiveForm.Top + Y - yyy;
  end;
end;

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Forms
Adicionada dia: 28/03/10
Por: Paulo Souza
Visualizada: 3132 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009