Скачать: CL | DM;

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 ???
Да.

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

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.015 c