Выбор дочерних MDI-окон с помощью набора закладок TabControl. Как

← →
FShadow (2005-12-01 12:59) [0]

При выполнении кода...
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.

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

← →
msguns © (2005-12-01 13:13) [1]

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

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

?

← →
FShadow (2005-12-01 13:19) [2]

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

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

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

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

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

← →
msguns © (2005-12-01 13:42) [3]

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

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

← →
FShadow (2005-12-01 14:20) [4]

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

Из главной вызывается
procedure TformMain.ToolButton1Click(Sender: TObject); begin TformKlient.Create(Application); TabControl1.TabIndex := TabControl1.Tabs.AddObject("База по клиентам", formKlient) end;
TabControl1 - находится на главной форме
formKlient - дочерняя форма формы formMain

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

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

← →
FShadow (2005-12-01 15:33) [6]

> Плохиш

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

Выбор дочерних MDI-окон с помощью набора закладок TabControl. Как Найти похожие ветки