Форум: "Основная";
Поиск по всему сайту: 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.75 MB
Время: 0.02 c
4-28554           Игорь2                2001-11-08 23:47  2002.01.10  
кодировка


3-28429           Beat                  2001-12-05 08:23  2002.01.10  
Как запретить перенос столбцов в DBGrid?


14-28538          Внук                  2001-11-12 17:09  2002.01.10  
Internet Explorer 6.0


1-28473           dimonf                2001-12-21 21:02  2002.01.10  
Вопрос по MDI форме


1-28478           tovSuhov              2001-12-22 13:47  2002.01.10  
Как поюзать ListView ?