Pressionando um bot�o

Question

Como fa�o para que um evento ocorra enquanto um bot�o � pressionado?
Por exemplo rolar um ScrollBox enquanto um determindado bot�o � pressionado, seria funcionar como um dos bot�es deste mesmo ScrollBox.
O problema � que quando utilizo o onMouseDown por exemplo ele fica em loop infinito...

O q posso fazer?

Grato

Marcelo.c · Answer

Para evitar o Loop, acho que voc� pode preencher o evento OnMouseUp para parar a rolagem....

Thiago Morasi · Answer

J� tentei fazer algo neste sentido, mas n�o consigo fazer com que haja alguma intera��o entre estes eventos...

O mais simples seria se tivesse alguma propriedade no bot�o que indicasse o estado do pr�prio bot�o, por exemplo:

evento onMouseDown
begin
while bot�o.pressionado do
ScrollBox1.HorzScrollBar.Position:= ScrollBox1.HorzScrollBar.Position + 1;
end;

N�o sei mais o q fazer...

Okama · Answer

Pode ser que eu esteja entendendo mal, mas se voc� colocar esse c�digo no evento OnClick do bot�o resolveria....

Thiago Morasi · Answer

O problema � que n�o consigo encontrar alguma propriedade que mostre o estado do bot�o (bot�o.pressionado)......

Okama · Answer

Nesse Caso voc� pode usar o SpeedButton e altere a Propriedade AllowAllUp como True; GroupIndex = 1; E Teste a propriedade Down: If SpeedButton1.Down = True then else ...

Thiago Morasi · Answer

Ainda n�o consegui, coloquei o c�digo que eu havia passado, num SpeedButton com as caracter�sticas que vc me passou, por�m ele entra em loop infinito se eu coloco este c�digo:

while SpeedButton2.Down = true do
ScrollBox1.VertScrollBar.Position:= ScrollBox1.VertScrollBar.Position + 1;

E quando coloco este:
if SpeedButton2.Down = true then
ScrollBox1.VertScrollBar.Position:= ScrollBox1.VertScrollBar.Position + 1;

Tenho que ficar clicando v�rias vezes no bot�o para que o ScrollBox v� rolando...

Parece uma coisa simples mas t� me tirando a paci�ncia...

Okama · Answer

Nesse caso voc� deve definir um fim para o Loop. Como voc� quer que o ScrollBox funcione?

Se o bot�o estiver pressionado o Loop do ScrollBox ser� executado at� encontrar o fim (ou come�o) ou seja voc� n�o precisa testar se o bot�o est� pressionado e sim verificar o fim do ScrollBox.

Ex: (em qualquer bot�o)
[b:c2498d3f95]Repeat[/b:c2498d3f95]
ScrollBox1.VertScrollBar.Position:= ScrollBox1.VertScrollBar.Position + 1;

[b:c2498d3f95]until[/b:c2498d3f95]
ScrollBox1.VertScrollBar.Position >= ScrollBox1.VertScrollBar.Range - ScrollBox1.ClientHeight;

Thiago Morasi · Answer

O que eu gostaria � de simular de forma id�ntica um bot�o de um Scroll, enquanto ele est� pressionado ele rola e quando se libera o bot�o o rolamento para......

Okama · Answer

Putz, cara pq vc n�o disse antes? Eu pensei que voc� queria testar o pressionamento do bot�o.

Consegui algo de forma id�ntica:

Insira um componente timer e defina as propriedades:
Enabled := False;
Interval:= 10;

No evento Ontimer:
procedure TForm1.Timer1Timer(Sender: TObject);
[b:b30e2d8ccf]begin[/b:b30e2d8ccf]
ScrollBox1.VertScrollBar.Position:= ScrollBox1.VertScrollBar.Position + 1;
[b:b30e2d8ccf]end[/b:b30e2d8ccf];

Em qualquer bot�o nos Eventos OnMouseDown e OnMouseUP

[b:b30e2d8ccf]procedure[/b:b30e2d8ccf] TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
[b:b30e2d8ccf]begin[/b:b30e2d8ccf]
Timer1.Enabled := true;
[b:b30e2d8ccf]end[/b:b30e2d8ccf];
[b:b30e2d8ccf]
procedure [/b:b30e2d8ccf]TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
[b:b30e2d8ccf]begin[/b:b30e2d8ccf]
Timer1.Enabled := False;
[b:b30e2d8ccf]end[/b:b30e2d8ccf];

Para subir use outro bot�o com outro Timer e coloque no Evento OnTimer :

procedure TForm1.Timer2Timer(Sender: TObject);
[b:b30e2d8ccf]begin[/b:b30e2d8ccf]
ScrollBox1.VertScrollBar.Position:= ScrollBox1.VertScrollBar.Position - 1;
[b:b30e2d8ccf]end[/b:b30e2d8ccf];

Desculpe a confus�o, hehe :lol:

Thiago Morasi · Answer

Okama, perfeito....Muito obrigado, j� estava louco por causa disso......

Werlon Goulart · Answer

O pacote RX tem um botao com uma caracteristica destas...

Basta marcar no botao RXSpeedButton a opcao AllowTimer para True e qndo vc clicar e segurar o botao clicado o evento onclick se repete...
Tem ate como configurar o tempo entre o primeiro evento e os posteriores.

procedure TForm1.RxSpeedButton1Click(Sender: TObject);
begin
inc(i);
label1.Caption:=inttostr(i);
end;

Um Abra�o
Werlon Goulart

F�rum Pressionando um bot�o #158592