| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Выбор дочерних MDI-окон с помощью набора закладок TabControl. Как [D6, D7, 95/98, XP]

FShadow ©   (2005-12-01 12:59:00) 

При выполнении кода...
procedure TformMain.TabControl1Change(Sender: TObject);
begin
   TForm(TabControl1.Tabs.Objects[TabControl1.TabIndex]).Show;
end;
выдается ошибка (дословно)
Project raised exception EAccessViolation with massage 'Access violation at address 00458FDA in module... Proces stopped.

Помогите! Что я непарвильно делаю?

---

FShadow   (2005-12-01 15:33:00) [1]

> Плохиш

Спасибо!
Действительно детский сад:(

---

Плохиш   (2005-12-01 15:19:00) [2]

Детский сад право слово :-(

>   formKlient :=TformKlient.Create(Application);
>   TabControl1.TabIndex := TabControl1.Tabs.AddObject('База
> по клиентам', formKlient)

---

FShadow   (2005-12-01 14:20:00) [3]

> КАКАЯ ФОРМА ?

Из главной вызывается

procedure TformMain.ToolButton1Click(Sender: TObject);
begin
  TformKlient.Create(Application);
  TabControl1.TabIndex := TabControl1.Tabs.AddObject('База по клиентам', formKlient)
end;

TabControl1 - находится на главной форме
formKlient - дочерняя форма формы formMain

---

msguns   (2005-12-01 13:42:00) [4]

>FShadow   (01.12.05 13:19) [2]
>Затем форма с помощью команды TabControl.Tabs.AddObject добавляется как объект к TabControl.

Можно отсюда поподробнее ? КАКАЯ ФОРМА ? ОТКУДА ОНА "БЕРЕТСЯ" и т.д.
Лучше всего, конечно, фрагмент кода

---

FShadow   (2005-12-01 13:19:00) [5]

> Видимо, все !

Очень смешно :(

1. При открытии файла в набор TabControl добавляется новая закладка Tab, а ее заголовок ("caption") устанавливается равным имени открытого файла. Затем форма с помощью команды TabControl.Tabs.AddObject добавляется как объект к TabControl.

При щелчке на TabControl, чтобы иметь доступ к верному файлу, я использую следующий код:
TForm(TabControl1.Tabs.Objects[TabControl1.TabIndex]).Show;

И при выполнении этого кода возникает ошибка.

---

msguns   (2005-12-01 13:13:00) [6]

>Помогите! Что я непарвильно делаю?

Видимо, все !
А как это: "Выбор дочерних MDI-окон с помощью набора закладок TabControl"

?

---

Наверх