![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Про двойной клик
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 один и тот же метод.