Показать сообщение отдельно
  #1  
Старый 10.05.2012, 23:41
fatima fatima вне форума
Прохожий
 
Регистрация: 10.05.2012
Сообщения: 5
Репутация: 10
По умолчанию Новая вкладка

Подскажите, пожалуйста!!!
Написала многостраничный графический редактор. Но в нем проблема такова: при создании изображения в новой вкладке и при открытии картинки в новой вкладке эта картинка создается/открывается во всех вкладках. Знаю, что проблема в том, что 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;
Ответить с цитированием