manipulação do button...
ola pessoal....
eu gostaria se alguém souber como faço para quando eu clicar em um botão ele executar uma ação e quando eu solta-lo parar de executa-la
desde já agradeço a ajuda.....
eu gostaria se alguém souber como faço para quando eu clicar em um botão ele executar uma ação e quando eu solta-lo parar de executa-la
desde já agradeço a ajuda.....
Zumbi
Curtidas 0
Respostas
Beppe
19/11/2003
Depende do que está fazendo. Tem que os eventos OnMouseDown e OnMouseUp para noticiar o pressionamente e solta do botão do mouse.
Isto aqui é o mais simples que você pode fazer:
No OnMouseDown:
No OnMouseUp;
Na rotina principal(digamos que tenha um loop):
A chamada de Application.ProcessMessages é necessário para que o form continue a agir normalmente, i.e. receber cliques de mouse, teclado, etc.
Isto aqui é o mais simples que você pode fazer:
No OnMouseDown:
PrecisaParar := False; ChamaRotinaPrincipal;
No OnMouseUp;
PrecisaParar := True;
Na rotina principal(digamos que tenha um loop):
repeat ... Application.ProcessMessages; until PrecisaParar;
A chamada de Application.ProcessMessages é necessário para que o form continue a agir normalmente, i.e. receber cliques de mouse, teclado, etc.
GOSTEI 0
Zumbi
19/11/2003
mas tem um porém .....
quando eu clicar com o botão direito ele gera o evento MouseDown
mas nao gera o MouseUp......
porque isso tem algum evento que posso utilizar para conseguir arrumar isso.......
pois ele executa o codigo mas não para ele .........
BLZ....
quando eu clicar com o botão direito ele gera o evento MouseDown
mas nao gera o MouseUp......
porque isso tem algum evento que posso utilizar para conseguir arrumar isso.......
pois ele executa o codigo mas não para ele .........
BLZ....
GOSTEI 0
Beppe
19/11/2003
O OnMouseUp só é gerado se soltar o botão enquanto em cima do botão.
GOSTEI 0
Zumbi
19/11/2003
mas o ponteiro do mouse esta em cima do componente mas quando vc clica com o botao direito do mouse ele nao gera esse evento ou nao executa a ação esperada....
GOSTEI 0