Возможна ли обработка двойного щелчка мышью на кнопке (TButton)?

[Brother]

Приветствую, господа!

1. Возможно ли создать обработку двойного щелчка на кнопке?

Дело в том, как известно, устанавливая функции обработки
события для одиночного (OnClick) и для двойного щелчка
(OnDblClick) на кнопке - обработка двойного щелчка
не вызывается, т.е. и не выполняется.

И первое, что может прийти в голову - это, конечно,
перехват интервалов между нажатиями данной кнопки
(и если интервал меньше n милисекунд, то вызывать
функцию для обработки, как бы, двойного щелчка).
Но, тогда возникает второй вопрос:

2. Как корректно перехватывать клики, откуда вызывать
проверку на интервал -из данной кнопки, на форме?

Заранее спасибо за ответ!

[rpy3uH]

пример обработки двойного щелчка по кнопке

const
  interval= 500; //максимальный интервал между кликами в милисекундах

var
  lastclick:DWORD=0;

procedure OnDblClickProc;
//выполняется когда происходит двойной щелчок
begin
  ShowMessage('двойной щелчок');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 if lastclick=0 then
   lastclick:=GetTickCount
                else
    begin
     if GetTickCount-lastclick<interval then OnDblClickProc;
     lastclick:=GetTickCount;
    end;
end;

[BOBAH13]

боже мой. Я конечно задаюсь вопрос "этот раздел вообще про вин апи ?". Но факт в том что когда прийдет понимание, что все в виндовсе ( что видно ) есть окно, то проблем подобных не будет. Что именно я хочу сказать:

type
  TDblButton = class(TButton)
  private
     FOnDblClick: TNotifyEvent;

     procedure WMLBUTTONDBLCLK(var Message: TMessage); message        WM_LBUTTONDBLCLK; 
  public
     property OnDblClick: TNotifyEvent read FOnDblClick write FOnDblClick;
  end;

implementation
   
procedure TDblButton.WMLBUTTONDBLCLK;
begin
   inherited;
   if Assign(OnDblClick) then
    OnDblClick(Self);
end;

Вот рабочий так сказать компонент. Ну не проверял конечн, прямо тут сразу и писал.

[Stilet]

э-э-э стоп, ребята, у кнопки нет обработчика OnDblClick

О кста по теме:
этот код без траблов обработает и клик и даблклик

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TButton=class(StdCtrls.Tbutton)
   procedure q(var m:TWMLButtonDblClk); message WM_LBUTTONDBLCLK;
  end;
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 Caption:=TimeToStr(time);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin

end;

{ TButton }

procedure TButton.q(var m: TWMLButtonDblClk);
begin
ShowMessage('dsfdsf');
end;

end.