Erro no DragMode - Delphi 7

[Ulisses Santos 0]

Olá a todos.

 

Eu preciso diferenciar um click de um press and hold em uma TreeView.

 

Se vocês colocarem uma TreeView e um Label, mudando o Caption da Label para Down no evento OnMouseDown e Up no evento OnMouseUp, tudo funcionará perfeitamente. Porém, ao ligar o DragMode (Automatic ou Manual com BeginDrag), pelo que notei (o teste com a Label) o Delphi se perde e considera sempre Up. Isso está atrapalhando o projeto que estou desenvolvendo.

 

Resumindo - Quando o usuário clicar em um item, abre as propriedades dele. Quando ele "clicar e segurar", ele pode arrastar o ícone dentro ou fora da árvore.

 

Como faço isso?

 

 

Obrigado

 

Ulisses Santos.

[Daniel Sanches 0]

olá !!!

 

não sei se entendi direito a sua dúvida, mas aí vai uma dica sobre o treeview que talvez te de uma luz ...

 

configure a propriedade DragMode = dmAutomatic

utilize o evendo OnDragOver (é chamado quando o usuário clica, segura e arrasta um dos itens)

utilize o evendo OnDragDrop (é chamado quando o usuário solta o item onde foi arrastado)

 

 

espero ter te dado uma luz ...

 

abraço !!