Mover botão com o mouse em tempo de execulsão?

Delphi

09/11/2004

Olá galera,

bom é o seguinte estou precisando por exemplo tenho um botão no form e quero que quando o mouse clicar e segurar em cima desse botão ele siga o mouse e pare onde o mouse parar, alguém sabe como fazer isso, pois procurei no forum e não achei.

Obrigado desde já.

Junior


Anjobrasileiro

Anjobrasileiro

Curtidas 0

Respostas

Paulo_amorim

Paulo_amorim

09/11/2004

Olá

Escreva no evento OnDragOver do Form:
TControl(Source).Left := X;
TControl(Source).Top := Y;


Isso fará com que o botão siga o mouse

Espero que ajude
Até+


GOSTEI 0
POSTAR