Buscar por:

Movimentando qualquer componente em tempo de execução

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.

*/