Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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


boleg ©   (2006-12-19 00:09:00) 

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

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

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


Barloggg   (2006-12-19 10:31:00) [1]

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

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


Германн   (2006-12-19 01:01:00) [2]


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

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


trubin   (2006-12-19 00:38:00) [3]

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


> procedure MyMethod(Sender: TObject);


извиняюсь:

procedure TForm1.MyMethod(Sender: TObject);


trubin   (2006-12-19 00:32:00) [4]

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;


boleg   (2006-12-19 00:17:00) [5]

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


trubin   (2006-12-19 00:14:00) [6]

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


Наверх

Титульная страница Поиск, карта сайта Написать письмо