Скачать: CL | DM;

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

← →
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);

---

← →
Германн ©   (2006-12-19 01:01) [5]

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

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

---

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

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.051 c