Código
Olá pessoal meu nome é Ricardo. Sou analista desenvolvedor de sistemas nas seguintes plataformas, Delphi e CSharp.
Nesta dica vamos movimentar qualquer objeto de tela que você selecionar para se movimentar.
Obs: para que se mova o objeto você deve pressionar a tecla ctrl
1º vamos criar um procedimento para fazer tal evento
*/
procedure MoveToObject(Sender : TObject; Shift :TShiftState);
begin
if ssCtrl in Shit then
ReleaseCapture;
PostMessage(TWincontrol(Sender).Handle, WM_Syscommand, $F012, 0);
TWincontrol(Sender).Align := AlNone;
end;
/*
agora no evento OnMouseMove de qualquer componente e só fazer uso do nosso procedimento que acabamos de escrever
Ex: evendo onmousemove de um botao
*/
MoveToObject(Sender, Shift);
/*
lembrando que para movimentar o objeto selecionado você deve estar com a tecla ctrl pressionada.
*/
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009