Hello Paul,
Ohhps dont forget if u use my code to reset the dblclck variable!
procedure TMainform.Panel2Click(Sender: TObject);
Const dblclck: Byte=0;
begin
inc(dblclck,1);
delay(500); //500 ms delay using appprocessmessages
if dblclck>1 then showmessage('dbl click')
else showmessage('Single click');
dblclk:=0;
end;
---------------------------------------------------------------------------
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/
