![]() |
|
|
#1
|
|||
|
|||
|
Подскажите, пожалуйста!!!
Написала многостраничный графический редактор. Но в нем проблема такова: при создании изображения в новой вкладке и при открытии картинки в новой вкладке эта картинка создается/открывается во всех вкладках. Знаю, что проблема в том, что Image один. Помогите исправить этот недочет... Вот код: Код:
procedure создать_в_новой_вкладке;
var
page: TTabSheet;
f: TImage;
begin
try
page := TTabSheet.Create(pagecontrol1);
page.PageControl := pagecontrol1;
page.Caption := format('Без имени - '+'%d', [pagecontrol1.PageCount]);
pagecontrol1.ActivePage := page;
f := TImage.Create(page);
f.parent:=Page;
except
on e: exception do ShowMessage(e.Message);
end;
end;Последний раз редактировалось lmikle, 11.05.2012 в 06:16. |