Форум: "Основная";
Поиск по всему сайту: 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.72 MB
Время: 0.02 c
6-28513           dimen                 2001-10-15 02:19  2002.01.10  
исходник копмпоненты http или как организовать его...


1-28483           SL                    2001-12-22 14:17  2002.01.10  
Можно ли в ComboBox ширину выпадающего окна сделать больше ширины окна редактирования


14-28529          Dup                   2001-11-14 15:09  2002.01.10  
Тоска


1-28492           Delphimun             2001-12-21 14:24  2002.01.10  
Как изменить букву на несколько букв вперёд(по алфавиту)?


6-28518           Sregey                2001-10-17 14:13  2002.01.10  
О ServerWinSocket