News & Events
Arrastando e soltando em aplicações Delphi
- 19 de junho de 2010
- Posted by: Adriano Santos
- Category: Tutoriais
procedure TForm1.ListaOrigemDragDrop(Sender, Source: TObject; X, Y: Integer); |
Listagem 1. Código Drag-and-Drop
Porém, o código passado trabalha apenas dentro da aplicação Delphi, ou seja, não aceita o arrasto de fora para dentro. Sinceramente não sabia como fazer isso e acabei recorrendo ao Google que acabou me direcionando a um artigo bem legal. O mérito não é meu, portanto o link de acesso ao artigo segue no final desse post.
Resolvi publicar aqui para registrar o código que é bem interessante. Eu testei pessoalmente a dica e funciona muito bem, então vale a pena dar uma olhada de perto (Listagem 2).
{ |
Listagem 2. Código drag-and-drop para arrastar do Windows direto a uma aplicação Delphi
Autor do código: http://www.swissdelphicenter.ch/torry/showcode.php?id=493
Link para meu artigo: Técnicas de drag-and-drop
Adriano Santos
http://www.twitter.com/asrsantos
Siga @tdevrocks no Twitter agora e fique por dentro de todas as atualizações do blog.
Siga também o autor @asrsantos
