Button repeat
lazarus / 16-Databases

----------------------------------------------------------------------
calvinruka · 2011-01-19 03:02

procedure TForm1.Button1Click(Sender: TObject);
begin
HandleOp ('1');
result.caption := '1';

This code can only  display '1' once i press 1 a time but when i press
2 or more times, it still reamain display 1 only. I wan make it the
code can display more 1 whenever i press howmany times.
Example: i hit 1, display 1
             i hit 3 time 1, display 111

but my code cant.... any clue?

----------------------------------------------------------------------
theo · 2011-01-19 09:28

result.caption := result.caption+'1';

;-)