Скачать: CL | DM;

Выбор дочерних 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

---

← →
Плохиш ©   (2005-12-01 15:19) [5]

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

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

---

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

> Плохиш

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.025 c