[Virus]

Подскажите пожалуйста. на форме 1 поставил TImage в качестве фона, надо сделать так, чтобы
на форме 2 и 3 был тот же фон(картинка), но не ставить же на каждую форму TImage и выбирать одну и ту же картинку (размер проги будет большой)

[lmikle]

Положить картинку в ресурс, при старте проги загрузить ее в глобальную переменную и на OnPaint всех форм отрисовывать "руками".

[:S.p.a.m.]

или загружать из Image который на первой форме!

[lmikle]

Или так, но зачем ему лишний компонет TImage, а так же проблемы с видимостью других компонентов??? Хотя для новичка вполне сойдет.

[Virus]

Image который на первой форме? :S.p.a.m. пожалуйста опишите подробно.
Новичку это сразу не понять! Кстати спасибо Вам за ценные ответы. Вы очень хорошо и доступно обьясняете!!!

[lmikle]

В OnShow второй (третий, четвертой и т.д.) формы пишешь:

Код:

Image1.Picture.Assign(Form1.Image1.Picture);

вроде, этого хватит. Естественно, для этого кода TImage на всех формах должен иметь имя Image1.

[Virus]

Что-то всё равно не дошло. Где найти OnShow?

[Virus]

Люди! ну где находится OnShow, сгораю от любопытства. помогите
мою программу посодить на диету, много весит...

[lmikle]

OnShow искать в инспекторе объектов на закладке событий. Он сгенерит код процки FormShow.

[Virus]

В инспекторе объектов (2 форма) захожу на Events-visual-onShow
туда вставляю: Image1.Picture.Assign(Form1.Image1.Picture);
и сразу же когда завершаю ввод и хочу перейти куда-то фатальная ошибка
что то я не так понял.Если Вас не затруднит обьясните еще раз. спасибо.

[:S.p.a.m.]

Рассказываю самый простой способ:
В Image на первой форме грузиш нужную картинку. А по созданию второй формы просто вот так:

Код:

procedure TForm2.FormCreate(Sender: TObject);
begin
  Image1.Picture := form1.image1.Picture;
end;

можно и так вместо Image1.Picture := form1.image1.Picture:
image1.Picture.Assign(form1.Image1.Picture);

[Virus]

Спасибо, действительно работает!