Hi all.
I since I dont have a touchpad here I was wondering if the following code would
work. I am trying to remove the noise from the pad.
(I am not sure what the processing of the variable debounce is on re-entry)
procedure TMainform.BitbtnClick(Sender: TObject);
const debounce:integer=0;
Label NOISE;
begin
NOISE:
inc(debounce,1);
delay (200);
if debounce>1 then
begin
debounce:=0;
goto NOISE;
end
else debounce:=0;
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED]
with body of "unsubscribe delphi"
Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
