Сохранение динамически созданных объектов

[Marsel737]

mihali4, пока не очень понятно куда это писать, можно поподробнее?

Как будет выглядеть вот этот код для пункта PopupMenu?

var myimage: TComponent;
begin
myimage:=FindComponent('Image1');
myimage.Destroy;
end;

[mihali4]

Да очень просто:

procedure TForm1.N1Click(Sender: TObject);
var myimage: TComponent;
begin
myimage:=PopupMenu1.PopupComponent;
myimage.Destroy;
end;

Я ведь правильно понял, что вам нужно удалять тот имэдж, на котором вы нажали правую кнопку мышки и вызвали попап-меню?

[Marsel737]

mihali4, да вы все правилльно поняли, примного благодарен вам за помощь.

А почему если аналогично делать через TComponenet у MyImage нет свойства Height?

[Marsel737]

Всем привет! Тема снова актуальна, как же все таки сохранить новый объект (картинку, лэйбл и т.д.) в файле.

Есть такая мысль, что при создании картинки появляется диалоговое окно с выбором картинки(это уже реализовано), а потом эта картинка копируется в каталог с программой и при следующем запске будет загружаться оттуда, но другое дело, как это всё реализовать? Может быть кто нибудь что-то подобное уже вытворял? Еще раз повторю, что нужно сделать сохранение именно в файл, например текстовый, а не в БД.

[mihali4]

Елы-палы, ну ткните по Image1 мышкой и нажмите F1...

Image1.Picture.SaveToFile(s);

[Marsel737]

mihali4, сохранить картинку не проблема, как сделать так чтоб динамически созданная картинка навсегда привязалась к проге, чтоб при последующих запусках была?

[mihali4]

Никак.
Только вновь загружать с параметрами, сохраненными в ини-файле.

[Marsel737]

mihali4, вот я это и имею ввиду, загружать из файла и сохранять в файл(ini), а не в бд. Только как сохранять в ини файл это не понимаю

mihali4, эта не дуюликат темы, потому что мне нужно именно через Components[i] загружать картинки в цикле.

Т.е. что-то вроде этого:

for i:=1 to Panel1.ComponentsCount do
begin
  Components[i].Picture.LoadFromFile();
end;

[mihali4]

Картинки сохраняются каждая в свой файл.
А вот их координаты и размеры, а также пути/имена файлов с изображениями для восстановления при запуске программы сохраняют в ини-файле.
При новом запуске программы эти значения считываются, создается нужное количество TImage-й, они образмериваются и расставляются в соответствии со считанными значениями и уже потом в цикле можно считывать собственно изображения из файлов.
Только нужно добавить проверку:

if Components[i] is TImage then

[Marsel737]

Пнт, спасибо за помощь