Buscar

Movimentar componente em tempo de execução

Código

(*

No evento MouseDown do componete
faça o seguinte código

*)


procedure TSeuFormulario.SeuComponenteMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  PostMessage(SeuComponente.Handle,WM_SYSCOMMAND, $F012, 0);
  SeuComponente.Align:= alNone;
end;

(*
Uma dica bem simples e objetiva
*)

Publicidade

Vote na dica




Quantidade de votos: 1 voto
Aceitação: 20%


Detalhes da dica

Categoria: Forms
Adicionada dia: 08/10/09
Por: Ricardo Silva Pereira
Visualizada: 2837 vezes

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