Присвоение картинки в Caption формы

[Shouldercannon]

Как присвоить другим формам картинку в Caption от главной формы?

[Кольша]

self.icon не?

[Shouldercannon]

Сообщение от Кольша

self.icon не?

Данный способ берёт картинку от EXE-файла. Данный способ прокатит с формой в DLL? Нужно взять картинку из Caption формы.

[Пепел Феникса]

Self(если Self==Form1) то это иконка формы.

[Shouldercannon]

Как в форму DLL вставить картинку в Caption от EXE из которого используется DLL?

Icon := Self.Icon;

Явно не годится.

[Delphi_ProGer]

Application.MainForm.Icon

[Shouldercannon]

В DLL

procedure TFormServerInfo.FormCreate(Sender: TObject);
begin
  Icon := Application.MainForm.Icon;
end;

Получаю Access violation.

[Аватар]

Можно попробовать сделать в DLL процедуру, которую вызывать перед вызовом самой формы и передать ей Application.Icon. Примерно в таком духе

procedure IconToDLL(Icon: TIcon); stdcall;
var Str: TMemoryStream;
begin
  Str:=TMemoryStream.Create;
  Icon.SaveToStream(Str);
  Str.Position:=0;
  Application.Icon.LoadFromStream(Str);
  Str.Free;
end;

Зачем формы в DLL? Не вижу смысла

[dmitriegorovih]

объясните мне почему нельзя вот так

begin
form2.Icon.Assign(form1.Icon);
end;