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@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus