| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Компонент содержащий другие компоненты [D6, D7, Win2k, WinXP]
COOLer © (2005-04-22 19:05:00)Привет Мастера.
Есть некий компонент от TPanel. На нем динамически создаются TImage. Вопрос в том как правильно создать TImage, чтобы можно было обработать его события, ну т.е OnClick и т.д. Если пишу
Img1 := TImage.Create(owner), то обработать события получается, но приложение не хочет запускаться, вызывает ошибки. А если пишу
Img1 := TImage.Create(self), то обработать события не получается, но все запускается. Спасибо за помощь.
Ученик (2005-04-22 23:20:00) [1]Еще вариант, наверно, рабочий :-)
http://www.delphimaster.ru/cgi-bin/forum.pl?id=1114086146&n=12
Ученик (2005-04-22 23:12:00) [2]
Img1 := TImage.Create(self);
procedure TMyPanel.Loaded;
begin
inherited Loaded;
Img1.OnClick := OnClick
end;
Определять OnClick для TMyPanel
Правильнее определить в TMyPanel
property OnImageClick: TNotifyEvent read GetImageClick write SetImageClick;
function TMyPanel.GetImageClick: TNotifyEvent;
begin
Result := Img1.OnClick
end;
procedure TMyPanel.SetImageClick(Value: TNotifyEvent);
begin
Img1.OnClick := Value
end;
| |
