Последовательная обработка одинарного и двойного нажатия левой кнопки мышкис

[KBO]

Доброе время суток,
Вот покапался в чьих-то исходниках и нашел следующий код отработки по разному левой (одинарное и двойное) нажатии кнопки мышки:
Помогите правильно обращаться к обработчикам,
Мне нужно это сделать на определенном компоненте TLabel,
Вот код основывающейся на сообщениях системы:

TForm2 = class(TForm)
  ... // всякий код класса
  private
    procedure WMLButtonDown(var Message: TWMLButtonDown); message WM_LBUTTONDOWN;
    procedure WMLButtonDblClk(var Message: TWMLButtonDblClk); message WM_LBUTTONDBLCLK;
    procedure WMLButtonUp(var Message: TWMLButtonUp); message WM_LBUTTONUP;
  end;

implementation

procedure TForm2.WMLButtonDown(var Message: TWMLButtonDown);
begin
  inherited;
  // обработка одного клика (нажатия левой кнопки мыши)
end;

procedure TForm2.WMLButtonDblClk(var Message: TWMLButtonDblClk);
begin
  inherited;
  // обработка двойного клика (двойного нажатия левой кнопки мыши)
end;

procedure TWindButton.WMLButtonUp(var Message: TWMLButtonUp);
begin
  inherited;
  // общая обработка отпускания клика для одинарного и двойного
end;

и далее проверять какой компонент был активен, если код вставить в класс формы

и мне наверно нужно заменить WMLButtonUp, т.е. написать OnLabel1MouseUp, наподобее

procedure TForm2.Label1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  PostMessage(Form2.Handle, WM_LBUTTONDOWN, X, Y);
end;

что тут не так?

можно было с таймером, но с ним все там понятно, а вот в этом варианте?

Заранее спасибо

[Stilet]

А почему сообщениями? Неужели события не хватает?

[KBO]

не знаю.
Ну попробуйте заполнить сразу у одного TLabel, сразу два события "OnClick" и "OnDblClick", и попробуйте сделать двойной щелчок.
Не знаю как у вас, а у меня постоянно выполняется "OnClick", при всех вариантах нажатия.

[Stilet]

Ой ой... А зачем делать и то и другое одновременно?

[Аватар]

Поскольку Label1 не имеет Handle поместил Label1 на панель и PeekMessage для панели. Если вместо Label1 использовать оконный компонент, то подложка не нужна. Небольшая задержка для OnClick обеспечена, собственно она будет если и по таймеру делать

procedure TForm1.Label1Click(Sender: TObject);
var
  Msg: TMsg;
  Ticks: Cardinal;
begin
  Ticks:=GetTickCount+GetDoubleClickTime;
  while GetTickCount<Ticks do
    if PeekMessage(Msg,Panel1.Handle,WM_LBUTTONDBLCLK,WM_LBUTTONDBLCLK,PM_NOREMOVE) then Exit;
  Label2.Caption:='Click';
end;

procedure TForm1.Label1DblClick(Sender: TObject);
begin
  Label2.Caption:='DblClick';
end;

[KBO]

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

Ой ой... А зачем делать и то и другое одновременно?

Не ой...ой ,
а я работаю с БД, и там есть поля (для заполнения) в 1000 символов. А т.к. у меня на форме много DBMemo (размером с Edit), то в режиме редактирования DataSet, при одном щелчке, я DBMemo расширяю, при двух - привожу их к первоначальному размеру

[Аватар]

о в режиме редактирования DataSet, при одном щелчке, я DBMemo расширяю

Б-р-р. Мышкой при редактировании тех мемо-окон не работают? Кликают, еще как

[KBO]

Сообщение от Аватар

Б-р-р. Мышкой при редактировании тех мемо-окон не работают? Кликают, еще как

Ну так просто мыша (с двойным щелчком) не работает с TDBMemo (она работала также, как и с TLabel),
Ща попробую ваш вариант...

Сообщение от Аватар

Поскольку Label1 не имеет Handle поместил Label1 на панель...

Label1 можно на панель и не запихивать, у меня и так работает (Label1 апанель рядом стоит)

[Stilet]

при одном щелчке, я DBMemo расширяю, при двух - привожу их к первоначальному размеру

Ужзкокой... Ну тогда опиши события так:

procedure TForm1.Memo1Click(Sender: TObject);
begin
  with TMemo(Sender) do begin
    OnDblClick:=Memo1DblClick;
    OnClick:=nil;
  end;
end;

procedure TForm1.Memo1DblClick(Sender: TObject);
begin
  with TMemo(Sender) do begin
    OnDblClick:=nil;
    OnClick:=Memo1Click;
  end;
end;

Будет тебе триггер своеобразный.

[Аватар]

Label1 можно на панель и не запихивать

Да ради бога, не запихивай. Используй для Label Handle другой подложки, формы например, если лейбл на ней. То же самое будет