Сохранение из Image

[Daivel]

Всё так же. Мне ещё посоветовали создать метод на форме с картинкой:

type
  TForm3 = class(TForm)
    Image1: TImage;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SavePicture(string FileName);
  private
  ...
  procedure Form3.SavePicture(string FileName);
begin
     Image1.Picture.Bitmap.SaveToFile(ExtractFilePath(Application.ExeName)+ExtractFileName(FileName));
end;

Ну и для формы с кнопкой сделать так:

procedure TForm1.Savew1Click(Sender: TObject);
begin
  Form3.SavePicture(FileName)
end;

Но при таком варианте, при запуске он мне пишет: expected an identifier but string found

[WinCoder]

Ладно. Так уж и быть. Скидывайте весь ваш проект + пару тестовых битмапов, исправлю ошибку. А то Вам щас насоветуют в первый день, что вообще бросите программирование.

[Daivel]

http://rghost.ru/59686810
Просто по сути не такое сложное действие, но столько проблем(

[WinCoder]

В общем проблема уходит корнями в стиль "fsMDIChild". Почему этот стиль не даёт ни как обращаться к объектам формы, я так и не понял. Попробовал все варианты, объекты как будто не существуют. Переделка под обычный стиль спасёт положение 100%. Как сделать реализацию в текущем стиле, я не знаю.

[Daivel]

Это пичально, я тут нашёл вот что интересное: Кстати, если у тебя MDI приложение то переменная FormN для дочерней формы nil. и вызывать надо не Form2.xxx а ActiveMDIChild.xxx

[WinCoder]

Ну коли так пишут, значит так оно и есть. Вот почему мы и не могли обратиться к Form3.Image1.

[Daivel]

У меня не получилось, может я что не так делал?

[WinCoder]

Не может, а 100%

  (Form1.ActiveMDIChild as TForm3).Image1.Picture.SaveToFile(ExtractFilePath(Application.ExeName) + ExtractFileName(ImgName));

Form3 обязательно должна быть активной. Специфика работы с MDI формами.

[Daivel]

Я сделал чуть по другому. Но получилось.

procedure TForm1.Savew1Click(Sender: TObject);
begin
 ShowMessage(ExtractFilePath(Application.ExeName)+ExtractFileName(Name));
 if not (ActiveMDIChild = Nil) then
  if ActiveMDIChild is TForm3 then
    TForm3(ActiveMDIChild).Image1.Picture.SaveToFile(ExtractFilePath(Application.ExeName) + ExtractFileName(ImgName));
end;

[WinCoder]

Тогда уж так

procedure TForm1.Savew1Click(Sender: TObject);
begin
 if (ActiveMDIChild <> Nil) and
   (ActiveMDIChild.Name = 'Form3') then
    TForm3(ActiveMDIChild).Image1.Picture.SaveToFile(ExtractFilePath(Application.ExeName) + ExtractFileName(ImgName));
end;