Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.28;
Скачать: [xml.tar.bz2];
Вниз
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
Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.28;
Скачать: [xml.tar.bz2];
Память: 0.75 MB
Время: 0.023 c