Передать image с одной формы на другую

@imfrozen · Регистрация: 14.05.2012

Студворк — интернет-сервис помощи студентам

Помогите пожалуйста решить проблему
В image1 первой формы загружаю изображение через OpenPictureDlg, передаю его на вторую форму, но он там не появляется
Но если загрузить изображение на этипе проектирования - оно передается на вторую форму
Значит ошибка в загрузке через OpenPictureDlg,но где не знаю
Загружаю вот так:

Delphi

1
2
3

OpenPictureDialog1.Execute;
  CurrentFile := OpenPictureDialog1.FileName;
  Image1.Picture.LoadFromFile(CurrentFile);

BuPy7 · 08.11.2012, 07:59

Покажите весь проект, если не секрет. Так будет проще понять проблему.

@imfrozen · 08.11.2012, 11:06 **[ТС]**

вот весь проект)

@Dmitrinik · 08.11.2012, 11:32

Сообщение от imfrozen

вот весь проект)

Вы уверены?

@Tanchik_Z · 08.11.2012, 12:41

Всего проекта так и не дождались) В чем проблема не понятно
элементарно прописываете

Delphi

procedure TForm2.FormActivate(Sender: TObject);
begin
form2.Image1.Picture:=form1.Image1.Picture;
end;

и все работает, естественно помним о Uses

@imfrozen · 08.11.2012, 15:23 **[ТС]**

Сообщение от Tanchik_Z

Всего проекта так и не дождались)

Так просто дело в том, что больше нет ничего) это одна маленькая функция для общей программы
спасибо за помощь,все работает

BuPy7 Нет ТЗ - давай досвидания 746 / 377 / 64 Регистрация: 01.12.2011 Сообщений: 2,250
	08.11.2012, 07:59	2
	Покажите весь проект, если не секрет. Так будет проще понять проблему. 1

@Dmitrinik 539 / 399 / 99 Регистрация: 18.08.2012 Сообщений: 1,024
	08.11.2012, 11:32	4
	Сообщение от imfrozen вот весь проект) Вы уверены? 1

@imfrozen 0 / 0 / 1 Регистрация: 14.05.2012 Сообщений: 55
	08.11.2012, 15:23 [ТС]	6
	Сообщение от Tanchik_Z Всего проекта так и не дождались) Так просто дело в том, что больше нет ничего) это одна маленькая функция для общей программы спасибо за помощь,все работает 0

Опции темы