Buscar

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.

*/




 

Publicidade

Vote na dica




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


Detalhes da dica

Categoria: Object pascal
Adicionada dia: 30/10/09
Por: Ricardo Silva Pereira
Visualizada: 6616 vezes

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