Arrastar e soltar

Question

� uma d�vida meio tosca, mas realmente nunca fiz isto por n�o precisar.

Qual a melhor forma de arrastar e soltar um componente em run-time ?

Acho que os eventos que devem ser usados s�o os de mouse e drag mas n�o vi no help maiores detalhes de como fazer.

Tb n�o achei nada aqui no pesquisar.

Weber · Answer

Mover/Redimensionar Componentes VCL em tempo de Execu��o, para componente tipo TWinControl.

Para exemplo, jogue o c�digo abaixo no Evento OnMouseDown de um bot�o.

  Begin
    ReleaseCapture;
    TWinControl(Sender).perform(WM_SYSCOMMAND, $f012, 0);
  End;

Abaixo seguem os valores mais importantes para passagem pela API do Windows.
sc_DragMove = $f012;
sc_Leftsize = $f001;
sc_Rightsize = $f002;
sc_Upsize = $f003;
sc_UpLeftsize = $f004;
sc_UpRightsize = $f005;
sc_Dnsize = $f006;
sc_DnLeftsize = $f007;
sc_DnRightsize = $f008;

Para ver todos os valores existentes no Delphi: com o mouse posicionado em cima do comando �WM_SYSCOMMAND�, pressione a tecla CTRL
+ o clique do mouse.

Motta · Answer

valeu weber, grato....

Zlink · Answer

Estava procurando algo assim, gostaria de saber como usar todos ao mesmo tempo, pois estou precesando colocar um componente no form e redimencionar e mover.Grato....

Zlink · Answer

Usei assim e deu certo

ReleaseCapture;
TWinControl(Sender).perform(WM_SYSCOMMAND, $f012, 0);
TWinControl(Sender).perform(WM_SYSCOMMAND, $f004, 0);

Agora como eu estou criando os componentes em modo de execur��o, como colocar /informar estes eventos no onmoudown em modo de execur��o.

Rogerio247 · Answer

Estava verificando esse c�digo , e � pr�ximo do que preciso.......minha d�vida e se teria como eu soltar esse componente no formul�rio de novo, pois ele precisaria ser impresso assim como todo o formul�rio

obrigado a quem ajudar

F�rum Arrastar e soltar #255699