Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.12.04;
Скачать: 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 вся ветка

Текущий архив: 2005.12.04;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.054 c
14-1132163491
Гарри Поттер
2005-11-16 20:51
2005.12.04
Процессор Pentium IV 516 oem (S775, 2933MHz/533MHz/1MB, EM64T)


14-1131755214
Мазут Береговой
2005-11-12 03:26
2005.12.04
Белорусская ОС - альтернатива Windows


2-1132085325
MRAk
2005-11-15 23:08
2005.12.04
Fs.free


1-1131451006
ArhArhangel
2005-11-08 14:56
2005.12.04
импорт данных из Excel


14-1131966308
DiamondShark
2005-11-14 14:05
2005.12.04
И снова о музыке.