MDICHILD и DLL

← →
Stas (2004-01-08 10:05) [0]

Доброе Утро !!!

У меня есть DLL в ней
функция возвращает тип TFORM.
Есть проект, из него я вызываю эту функцию, а в проекте 1 форма MDIForm. Как можно присвоить форме из DLL свойство FormStyle:=MDICHILD.
Часть кода:
Var F:TForm;
begin
F:=MyFunc;
F.FormStyle:=MDIChild // Здесь ошибка (пишет что не возможно создать Mdi форму)
end;

Кто знает подскажите!!

← →
alex_*** (2004-01-08 10:14) [1]

Note: It is not advisable to change FormStyle at runtime.

перекрыть CreateParams

← →
YuRock (2004-01-08 10:16) [2]

Если MyFunc действительно вернула созданный объект, то, скорее всего, ошибка возникает потому, что форма невидима. Нужно вначале:

F.Visible := True;

а затем

F.FormStyle := fsMDIChild;

← →
Stas (2004-01-08 10:34) [3]

Сделал ее видимой, форма появилась, потом делаю MDIChild она пропадает.
Но ошибку уже не пишет...

← →
YuRock (2004-01-08 10:39) [4]

Во время создания (Form1 := TForm.Create(...)) вместо "..." (если это dll) надо писать "Application"

← →
Stas (2004-01-08 10:52) [5]

Так и пишу Все равно не работает.

← →
YuRock (2004-01-08 10:57) [6]

Тогда можно попробовать сделать ее изначально MDIChild (если конечно, создание не динамическое). Хотя, возможно и это не поможет. Можно попробовать вместо "TForm.Create(Application)" писать "TForm.Create(Application.MainForm)"...

А главная форма fsMDIForm ???

← →
Stas (2004-01-08 11:02) [7]

А главная форма fsMDIForm ???
Да.

Спасибо за советы !!!
Сейчас посмотрю, если что буду писать :-) !

MDICHILD и DLL Найти похожие ветки