Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.03.28;
Скачать: CL | DM;

Вниз

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

 
sdn ©   (2002-03-15 10:39) [0]

Доброе время суток, уважаемые!

Так вот... Хочу сделать MDI-интерфейс у приложения, но не как обычно... Смысл такой. В exe только MainForm (он же MDI-server (FormStyle := fsMDIForm)), а Child`ы, хочу располагать в dll. Делаю так...

В exe...

function CrtMDIForm(AHandle: THandle): TForm; external "Project2.dll" index 1;

procedure TForm1.N1Click(Sender: TObject);
var
Child: TForm;
begin
Child := CrtMDIForm(Application.Handle);
Child.FormStyle := fsMDIChild;
end;

В dll...

function CreateMDIForm(AppHandle: THandle): TForm; exports CreateMDIForm;

function CreateMDIForm(AppHandle: THandle): TForm;
begin
Application.Handle := AppHandle;
Result := TMDIForm.Create(Application);
// Application.CreateForm(TMDIForm, Result); <--- Так тоже пробовал
end;

Вроде всё должно быть по путю..., но (!!!) при вызове метода TForm1.N1Click - происходит исключение "No MDI Forms are curently active".
Как быть? Есть идеи?

С наилучшими пожеланиями,
Дмитрий
ICQ: 58245670
Odigo: 6549174


 
McSimm ©   (2002-03-15 12:48) [1]

http://delphi.mastak.ru/cgi-bin/forum.pl?answer=1&id=1015263160&n=0




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

Текущий архив: 2002.03.28;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.017 c
4-91106
MrAngel
2002-01-21 12:06
2002.03.28
Использование функции GetDesktopWnd


1-90854
SlavaS
2002-03-16 21:35
2002.03.28
Неудаётся найти файл *.bpl


1-90947
voland0
2002-03-14 16:21
2002.03.28
Рег. N и ключ для Delphi 5 Enterp Update Pack 1


3-90727
JEff
2002-02-25 18:34
2002.03.28
КАК ЖЕ МНЕ ИЗМЕНИТЬ CAPTION QRLabel а?


7-91089
Dmitry1979
2001-12-26 12:26
2002.03.28
Как послать сообщение во факсу из программы на Delphi?