Форум: "Основная";
Текущий архив: 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.01 c