Управление дочерними окнами через вкладки

[phpusr]

Нужно по нажатию на определенную вкладку сделать так, чтобы открывалось определенное дочернее окно.
В качестве вкладок используется компонент TabControl.
Я прописал код на событие OnChanging, вот такой код:

Type tbc:TTabControl
...
procedure TMainForm.tbcChanging(Sender: TObject; var AllowChange: Boolean);
begin
MDIChildren[tbc.TabIndex].Show;
end;

Этот код открывает нужную вкладку только после нескольких нажатий, на разные вкладки.

[Andrei]

А почему код повесили на событие OnChanging?

Это событие возникает ПЕРЕД тем как вы выходите со вкладки. Используется индекс вкладки которую вы собираетесь покинуть.

Повесьте код на событие OnChange.

[phpusr]

На OnCahnge тоже вешал, все равно не помогает, такое ощущение как будтно номера окон меняются, и вот еще вопрос, можно ли узнать № активного окна?

[Andrei]

Сообщение от phpusr

На OnCahnge тоже вешал, все равно не помогает, такое ощущение как будтно номера окон меняются,...

Похоже, ощущения вас не обманули. И в хелпе об этом написали:

MDICildren property (TCustomForm)


Provides indexed access to all MDI child forms.

Delphi syntax:

property MDIChildren[I: Integer]: TForm;

C++ syntax:

__property TForm* MDIChildren[int I] = {read=GetMDIChildren};

Description

Use MDIChildren to access a child form.

I is the index of the child form to access. The order of MDI children changes as different MDI forms are activated. Initially, forms are listed in creation order, with new forms being added to the end of the array. Whenever an MDI child is activated, however, it moves to the front of the list. Thus, use I to index over all forms in the array, but not to refer to a specific form.

MDIChildren is meaningful only if the form is an MDI frame (that is, if the form’s FormStyle property is set to fsMDIForm).

Что означает примерно следующее:

...Порядок дочерних окон меняется когда различные дочерние окна становятся активными... Когда дочернее окно становится активным оно помещается в начало списка. Так что используйте индекс для перебора всех форм в массиве, а не для фиксированной ссылки на конкретное дочернее окно...

Сообщение от phpusr

...и вот еще вопрос, можно ли узнать № активного окна?

Логически рассуждая, индекс активного дочернего окна всегда равен 0.

Я сам мало работал с дочерними окнами, потому и не увидел сразу граблей .

[phpusr]

Огромное спасибо.