|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Mouse/Teclado)
|
|
 |
Título da Dica: Operações de Arrastar e Soltar
|
 |
|
|
|
Postada em 21/2/2003 por Salgadinho
Você pode fazer do modo automático ou manual...
Automático:
Em ambas as procedures vc verá dento dos parênteses o Source as Control, ele representa o objeto que foi solto no caso do DRAGDROP, e o objeto que está sendo arrastado no caso do DRAGOVER. Vc pode usá-lo para acessar todas as propriedades do objeto solto ou que está sendo arrastado assim como jah expliquei...
Verá tb o X e Y as Single, são as coordenadas do mouse no momento em que o objeto foi solto no caso do DRAGDROP, ou são as coordenadas atuais do mouse no caso do DRAGOVER.
Existe uma opção vista somente no DRAGOVER, o State, que é o estado de transição do controle que está sendo arrastado.
Pode ser:
0 - O controle de origem entrou na área de destino.
1 - // saiu da área de destino
2 - // moveu-se sobre a área de destino.
Manual:
As opções são as mesmas....
No evento MouseDown do controle que irá ser arrastado...
NomeObjeto.Drag
Para não permitir que o usuário solte o controle que está sendo arrastado sobre outro que vc não quer, no evento DRAGOVER no controle que não aceitará...
If State = 0 then Source.MousePointer = 12
If State = 1 then Source.MousePointer = 0
|
|
|
|
|
