[Lazarus] TDBNavigator button click

[andtag]

Yes, it works but Button1Exit is not the best because it control the
focus and when i click on button the focus remain on the button. I will
try to change focus or maybe TButton.OnMouseDown and the timer event...
Thank you for the idea, you woke up my brain ;)

Andy.


Howard Page-Clark ha scritto:
> On 13/3/10 3:42, andtag wrote:
>> Hello,
>> I have a DB with 400 records and clicking the next button i can see the
>> next record. If i want to reach record 200 i must do 200 clicks.
>> I want to have a continue action pressing the dbnavigator button, for
>> example, when i click Next button, i want the records go forward until i
>> leave the button. Is possible to do?
> Is something like this what you are looking for?
>
> Add a boolean FButtonHeldDown as a private variable of TForm1, and a
> normal button, Button1. Add this code to OnClick and OnExit events of
> Button1.
>
> procedure TForm1.Button1Click(Sender: TObject);
> var sequence: integer;
> begin
>   FButtonHeldDown := true;
>   sequence := 0;
>   while FButtonHeldDown and not dbf1.EOF do
>   begin
>    dbf1.Next;
>    inc(sequence);
>    label1.Caption := Format('cursor moved forward %d times',[sequence]);
>    Application.ProcessMessages;
>    Sleep(100);
>   end;
> end;
>
> procedure TForm1.Button1Exit(Sender: TObject);
> begin
>   FButtonHeldDown := false;
> end;
>
>
>> exists a function for know if a button is pressed down, not only
>> a click?
> TButton.OnMouseDown?
>
> Howard
>
> -- 
> _______________________________________________
> Lazarus mailing list
> Lazarus at lists.lazarus.freepascal.org
> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
>

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus/attachments/20100313/ea64a162/attachment-0004.html>