Форум: "Основная";
Текущий архив: 2002.10.14;
Скачать: [xml.tar.bz2];

Вниз

MDI - Child   Найти похожие ветки 

← →
AlexeyMir   (2002-10-03 13:29) [0]

Как сделать активным Child окно и передать ему фокус

---

← →
Best Before 2024   (2002-10-03 13:31) [1]

XXXChildForm.Show не помогает?

---

← →
AlexeyMir   (2002-10-03 14:32) [2]

Нет, т.к. Show, Hide, св-во Visible тоже не работает в MDI окнах

---

← →
KSergey   (2002-10-03 15:20) [3]

> AlexeyMir (03.10.02 14:32)
> Нет, т.к. Show, Hide, св-во Visible тоже не работает в MDI
> окнах

Враки наглые
Буквально вчера приводил где-то здесь код, попробую повторить:

(для справки)
type
TMDIChildClass = class of TMDIChild; // это просто форма со св-ством MDIChild
{******************************************************************************
* Создание дочернего MDI-окна
* Проверяет, создано ли уже окно указанного класса, если нет - создает, если
* да - активизирует ранее созданное.
* Вход:
* FormType - класс создаваемого MDI окна
* Возвращает ссылку на созданное/активизированное окно.
******************************************************************************}

function CreateMDIChild(const FormType: TMDIChildClass): TMDIChild;
var
i: Integer;
flFound: Boolean;
begin
Result := nil;
flFound := False;
for i := 0 to MainForm.MDIChildCount-1 do
if MainForm.MDIChildren[i].ClassType = FormType then
begin
Result := (MainForm.MDIChildren[i] as TMDIChild);
Result.Show;
flFound := True;
end;
if NOT flFound then Result := FormType.Create(MainForm);
end;

Можете не верить, но у меня это работает

---

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

Форум: "Основная";
Текущий архив: 2002.10.14;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.013 c