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

Вниз

Запретить отображаться MDIChild автоматически при создании   Найти похожие ветки 

 
Sectey ©   (2003-03-21 09:24) [0]

Как запретить отображаться MDIChild при создании формы?
Я создаю форму так: fmMDIChild := TfmMDIChild.Create(Application) но при этом форма отображается сразу, а мне надо чтобы отображение происходило по моему требованию, не подскажите как это сделать?


 
Polevi ©   (2003-03-21 09:29) [1]

FormStyle=fsNormal
Create
FormStyle=fsMdiChild

но есть свои недостатки в этом способе


 
Sectey ©   (2003-03-21 10:48) [2]

>Polevi
Какие недостатки?


 
asafr ©   (2003-03-21 10:55) [3]

Можно поместить эту форму в Project Option -> Forms, поле Available forms, а потом уже открывать ее там, где необходимо...


 
Sectey ©   (2003-03-21 11:01) [4]

>asafr
Все правильно но при создании формы fmMDIChild := TfmMDIChild.Create(Application) она сразу выводится на экран.
А мне надо чтобы я форму создал.
Выставил необходимые параметры.
И лишь потом отобразил.


 
Polevi ©   (2003-03-21 11:25) [5]

недостатки связаны с поведением некоторых элементов управления (например TreeView) при FormStyle:=fsMdiChild


 
Sectey ©   (2003-03-21 11:45) [6]

>Polevi ©
А другого спосаба нет?


 
asafr ©   (2003-03-21 12:22) [7]

Тогда надо написать динамическую библиотеку, содержащую MDIChild форму. Правда при ее вызове надо будет немного исхитриться, так как при вызове VCL проверяет FormStyle главной формы. Проверяется Application, принадлежащей динамической библиотеке, а в ней главной формы нет. Поэтому выдается ошибка.
И чтобы не было ошибки-надо назначить объекту Application динамической библиотеки - Application вызывающего приложения.
Что-то, вроде:
procedure MDIChildShow(MApp : TApplication);
var
FmChild : TMDIChild;
begin
if not Assigned(ApplicDLL) then begin
ApplicDLL := Application;
Application := MApp;
end;
FmChild := TMDIChild.Create(Application.MainForm);
FmChild.Show;
end;
Во всяком случае - попробуй... Попытка - не пытка...


 
Игорь Шевченко ©   (2003-03-21 12:26) [8]

Очень неплохой совет, к сожалению, не помню автора.
procedure TfChild.FormCreate(Sender: TObject);
begin
Exclude(FFormState, fsVisible);
end;



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

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

Наверх




Память: 0.48 MB
Время: 0.021 c
3-6366
RealShip
2003-03-13 15:34
2003.04.03
Помогите со свойством Filter у Table...


1-6497
Kron
2003-03-24 15:43
2003.04.03
Как открывать одно и тоже окно много раз


7-6821
Mr. Iv@n
2003-02-10 21:57
2003.04.03
Рабта с хардом


7-6827
pfar
2003-02-08 08:36
2003.04.03
Как выгрузить любую DLL-ку в windows?


14-6713
race1
2003-03-15 15:06
2003.04.03
c++