Про двойной клик

← →
boleg © (2006-12-19 00:09) [0]

Есть объект состоящий из
Panel1: TPanel с установленым свойством AutoSize:=true;
На панель помещен Label1: TLabel. Получаестя панелька с натянутым лабелем.

Вопрос: Как заставить такой объект реагировать на двойной клик?

Можно вопрос сформулировать и так: Как добится того чтобы срабатывал Panel1.OnDblClick по двойному клику на Label1?

← →
trubin © (2006-12-19 00:14) [1]

Назначить им в качестве обработчика события .OnDblClick один и тот же метод.

← →
boleg © (2006-12-19 00:17) [2]

Извеняюсь, а можно поподробнее, так чтобы новичек понял.

← →
trubin © (2006-12-19 00:32) [3]

type TForm1 = class(TForm) Panel1: TPanel; Label1: TLabel; private procedure MyMethod(Sender: TObject); public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.FormCreate(Sender: TObject); begin Panel1.OnDblClick:= MyMethod; Label1.OnDblClick:= MyMethod; end; procedure MyMethod(Sender: TObject); begin ShowMessage("По мне щелкнули дважды"); end;

← →
trubin © (2006-12-19 00:38) [4]

Только событие Panel1.OnDblClick никогда не произойдет, как ты по панели щелкнешь, если ее все label закрывает.

> procedure MyMethod(Sender: TObject);

извиняюсь:

procedure TForm1.MyMethod(Sender: TObject);

> boleg © (19.12.06 00:09)
>
> Есть объект состоящий из
> Panel1: TPanel с установленым свойством AutoSize:=true;
> На панель помещен Label1: TLabel. Получаестя панелька с
> натянутым лабелем.

Не корысти ради, а только из любопытства. А зачем нужен такой объект?

← →
Barloggg (2006-12-19 10:31) [6]

действительно, зачем? наверное это моргающая надпись. которая то видна, то нет.

мне вот приходится кое-где передавать колесо вышележащему скроллбоксу дабы катилось, это да, тогда нужно. а передавать двойной клик...

Про двойной клик Найти похожие ветки