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

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

← →
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/

---

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

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



Память: 0.45 MB
Время: 0.025 c