![]() |
|
#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. |