Можно проверить на задержке, а не двойной ли клик поступил, или тут только одинарка подоспела
Код:
procedure TForm1.Label1Click(Sender: TObject);
var
Msg: TMsg;
TargetTime: Cardinal;
begin
TargetTime:= GetTickCount + GetDoubleClickTime;
while GetTickCount < TargetTime do
if PeekMessage(Msg, Handle, WM_LBUTTONDBLCLK, 0, 0) then Exit;
(Sender as TLabel).Caption:= 'Одинарный клик';
end;
procedure TForm1.Label1DblClick(Sender: TObject);
begin
(Sender as TLabel).Caption:= 'Двойной клик';
end;
А увидеть имя процедуры можно в *.dfm файле данной формы