VPF::Создание вкладки вместе с объектом

mr.Anderson

Дата 21.9.2006, 21:01 (ссылка)

(нет голосов)

Загрузка ...

iOS Lead Developer

Профиль
Группа: Участник Клуба
Сообщений: 3374
Регистрация: 20.12.2004
Где: далеко

Репутация: 3
Всего: 128

Подскажьте плз.

Есть объект класса TTabbedNotebook. Я пытаюсь сделать так, чтобы по нажатию кнопочки "Создать новый документ" у меня создавалась вкладка с неповторяющимся именем, а на ней сразу был объект TRichEdit, растянутый во всю форму (т.е. со свойством Align: alClient).

Создание вкладки я уже реализовал:

Код


procedure TMainForm.NewClick(Sender: TObject);
var x: String;
    i: Word;
begin

 for i:=0 to Note.Pages.Count do
 begin
  x := 'New ' + IntToStr( i+1 );

  if( Note.Pages.IndexOf( x ) = -1 ) then
   Note.Pages.Add( x );

 end;

end;

А вот как на этой новой вкладке создать указанный объект?

P.S. Note в моем коде - это имя объекта TTabbedNotebook.

Это сообщение отредактировал(а) sim7 - 21.9.2006, 21:03

--------------------

Romikgy

Дата 21.9.2006, 21:09 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146

Код


Динамические создание объектов в TabbedNotebook 

procedure TForm1.TabbedNotebook1Click(Sender: TObject); 
var 
  myE: TEdit; 
begin 
  with TabbedNotebook1 do 
  begin 
    if PageIndex = 1 then 
    begin 
      myE := TEdit.Create(Self); 
      myE.Left := 12; 
      myE.Top := 12; 
      myE.Parent := Pages.Objects[PageIndex] as TWinControl; 
      myE.Show; 
    end; 
  end; 
end; 


procedure TForm1.Button1Click(Sender: TObject); 
var 
  Button2:Tbutton; 
begin 
  button2:=tbutton.create(self); 
  button2.parent:=TabbedNotebook1.Pages.Object[0] as TTabPage; 
  button2.setbounds(30,30,60,30); 
end;

ДРКБ

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

mr.Anderson

Дата 21.9.2006, 21:17 (ссылка)

(нет голосов)

Загрузка ...

iOS Lead Developer

Профиль
Группа: Участник Клуба
Сообщений: 3374
Регистрация: 20.12.2004
Где: далеко

Репутация: 3
Всего: 128

молчу...

спасибо!

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »