Вопрос про MDI

← →
Smok_er (2003-01-05 18:13) [0]

Господа, как можно определить индекс текущего MDI-окна?
Пробую так:
function TfmMain.ActiveChildIndex: Integer; var i: Integer; begin Result := -1; for i := 0 to MDIChildCount - 1 do if ActiveMDIChild = MDIChildren[i] then begin Result := i; Exit; end; end;

Данная функция вызывается при активации дочернего окна. Пробовал передавать в качестве параметра в функцию саму форму, но все напрасно. Функция всегда возвращает ноль.

Может есть какие-то идеи?

← →
Skier (2003-01-05 18:24) [1]

>Smok_er
Попробуй так :
AForm - форма, которая активизируется...

function TfmMain.ActiveChildIndex(AForm : TForm): Integer;
var
i: Integer;
begin
Result := -1;
if AForm = nil then Exit;
for i := 0 to MDIChildCount - 1 do
if AForm = MDIChildren[i] then
begin
Result := i;
Exit;
end;
end;

← →
Skier (2003-01-05 18:27) [2]

> . Функция всегда возвращает ноль.

Кстати, если у тебя кол-во форм = 1 (MDIChildCount = 1), то
твоя Функция работает правильно.

← →
Smok_er (2003-01-05 18:32) [3]

>>Пробовал передавать в качестве параметра в функцию саму форму, но все напрасно

Не работает, как я уже писал.

Передавал следующим образом:
procedure TfmBrowser.FormActivate(Sender: TObject); begin fmMain.Label1.Caption := IntToStr(fmMain.ActiveChildIndex(Self)); end;

Вместо Self пробовал имя формы - не работает и всегда возвращает ноль.

← →
Smok_er (2003-01-05 18:34) [4]

>>Кстати, если у тебя кол-во форм = 1 (MDIChildCount = 1), то
>>твоя Функция работает правильно.

При одной форме это нормально, но у меня не одна. Событие срабатывает при смене активного дочернего окна.

← →
Skier (2003-01-05 18:49) [5]

property MDIChildren[I: Integer]: TForm;

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.

← →
Smok_er (2003-01-05 21:34) [6]

Спасибо!
Буду искать другое решение

← →
dim- (2003-01-06 02:50) [7]

Пробуй проверять заголовок формы, если у тебя нет одинаковых заголовков то будет работать
Function getWin(capt:string;view:byte):boolean;
Var i:integer;
Begin
result:=false;
for i:=0 to MainForm.MDIChildCount do
if MainForm.MDIChildren[i].Caption=capt then begin
result:=true;
if view=1 then MainForm.MDIChildren[i].BringToFront;
end;
end;

Вопрос про MDI Найти похожие ветки