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

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

Вопрос про MDI [D7, WinXP]

Smok_er ©   (2003-01-05 18:13:00) 

Господа, как можно определить индекс текущего 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;


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

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

---

dim-   (2003-01-06 02:50:00) [1]

Пробуй проверять заголовок формы, если у тебя нет одинаковых заголовков то будет работать
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;

---

Smok_er   (2003-01-05 21:34:00) [2]

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

---

Skier   (2003-01-05 18:49:00) [3]

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 18:34:00) [4]

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

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

---

Smok_er   (2003-01-05 18:32:00) [5]

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

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

Передавал следующим образом:

procedure TfmBrowser.FormActivate(Sender: TObject);
begin
fmMain.Label1.Caption := IntToStr(fmMain.ActiveChildIndex(Self));
end;


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

---

Skier   (2003-01-05 18:27:00) [6]

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

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

---

Skier   (2003-01-05 18:24:00) [7]

>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;

---

Наверх