[alekso]

Сообщение от Alegun

Можно проверить на задержке, а не двойной ли клик поступил, или тут только одинарка подоспела

Код:

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 файле данной формы

Спасибо огромное!!!