Форум: "Основная";
Поиск по всему сайту: 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
14-28540          savva                 2001-11-15 12:28  2002.01.10  
Поздравляем сегодня человека с ником Jey - у него сегодня день ВАРЕНЬЯ!!! (и подружнее товариши:)))


7-28546           Riman                 2001-06-01 09:33  2002.01.10  
Сканер штрих кода


1-28510           USAtyj                2001-12-21 12:56  2002.01.10  
AV при вызове HeapAlloc


3-28423           Boss2                 2001-12-08 20:20  2002.01.10  
TreeView/БД


6-28521           Serguar               2001-10-10 12:42  2002.01.10  
Вопрос по TUDPServer/TUDPClient из Indy