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
*)
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009