Компонент содержащий другие компоненты

← →
COOLer (2005-04-22 19:05) [0]

Привет Мастера.
Есть некий компонент от TPanel. На нем динамически создаются TImage. Вопрос в том как правильно создать TImage, чтобы можно было обработать его события, ну т.е OnClick и т.д. Если пишу
Img1 := TImage.Create(owner), то обработать события получается, но приложение не хочет запускаться, вызывает ошибки. А если пишу
Img1 := TImage.Create(self), то обработать события не получается, но все запускается. Спасибо за помощь.

← →
Ученик (2005-04-22 23:12) [1]

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;

← →
Ученик (2005-04-22 23:20) [2]

Еще вариант, наверно, рабочий :-)

http://delphimaster.net/view/5-1114086146/

Компонент содержащий другие компоненты Найти похожие ветки