PageControl+Image (Delphi)

[VadEr]

Добрый вечер!

Уважаемые программисты помогите пожалуста разобраться в следующем:
- создаю динамически вкладку в PageControl, а на ней - Image. Сразу загружаю в Image картинку(размером 50*50) из файла.

Нужно при нажати на картинку открывать её в новом окне (SDI), в полном размере. Вот тут уменя затруднения. Не знаю, - как прописать событие нажатия мышкой на картинку. Подскажите - как?

p.s. вкладки PageControl и Image создаю как объекты динамического массива.

[Neeter]

создайте в секции private процедуру:

 private
  procedure ImagesClick(Sender: TObject);

Пример описания:

procedure TForm1.ImagesClick(Sender: TObject);
begin
 (Sender as TImage).Stretch := true;
 //В общем тут вообще ваш код
 //(Sender as TImage) - TImage в котором произошло событие
end;

Потом в коде динамического создания добавьте строчку:

 img.OnClick := ImagesClick;  //img - переменная типа TImage

[VadEr]

Спасибо! Помогло.

Разрешите задать другой вопрос. На это раз на главной форме имеется много (не динамических) вкладок PageControl, и на каждой - Image. Как загрузить изображение в свободный Image на вкладке PageControl из Image на дочерней форме созданной динамически.

Видимо, что-то подобное, но не работает.

TImage(Active).Draw(0,0, TForm2(ActiveMDIChild).Image1.Picture.Graphic);