Hello Paul,
Cant you do a short delay in the onmouseclick event:
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');
end;
Otherwise there are the two mouse click events that you could set flags in.
Al+
---------------------------------------------------------------------------
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/
