Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.10;
Скачать: [xml.tar.bz2];




Вниз

Вопрос по MDI форме 


dimonf   (2001-12-21 21:02) [0]

У меня запара. :((( Я открытию две MDI формы. Потом форму N2 распахиваю во весь зкран, затем закрываю форму N2 а почему то форма N1 тоже автоматам распахиваеться. Как мне избавиться от этого эфекта? Я хочу чтобы у меня форма N1 как была открыта так и сохранялась кагда я закрываю форму N2.



dimonf   (2001-12-21 21:52) [1]

Неужели нет мыслей???



Ю Ю   (2001-12-22 08:11) [2]

Как буд-то MS Word ведёт себя иначе :-))
"Развернуть во весь экран" - это указание не отдельной форме, а всем сразу.
Нажми "Восстановить" и все оставшиеся формы примут прежние размеры.
Программно можно сделать, например, так:

procedure TMyChild.FormClose(Sender: TObject; var Action: TCloseAction);
Var iChild:integer;
MainForm:TForm;
begin
MainForm:=TForm(TForm(Sender).Owner);
for iChild:=0 to MainForm.MDIChildCount-1
do MainForm.MDIChildren[iChild].WindowState:=wsNormal;
Action := caFree;
end;

при этом при создании дочерних форм указывать главную в качестве Owner:

procedure TForm1.New1Click(Sender: TObject);
var MyChild: TMyChild;
begin
MyChild:=TMyChild.Create(self);
MyChild.Show;
end;



dimonf   (2001-12-22 12:42) [3]

Большое спосибо :)))




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.10;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.016 c
14-28537          T2                    2001-11-14 02:48  2002.01.10  
Multimedia Tools for D5


3-28409           Lbvf                  2001-12-07 17:10  2002.01.10  
Uhm...


1-28479           ЙЦУЙУ                 2001-12-22 14:46  2002.01.10  
ПО МО Г И ТЕ


14-28532          Scarlett              2001-11-16 14:20  2002.01.10  
чат! чат! и ещё раз ЧАТ!


1-28475           Starkom               2001-12-17 12:30  2002.01.10  
Вопрос о существовании сборщика мусора