запретить сворачивание дочерних окон при сворачивании основного

← →
pesttt (2009-09-17 16:42) [0]

привет всем.

как сделать так, чтобы дочение окна не сворачивались, когда я сворачиваю главное окно?
и еще такая ситуация бывает. главное окно свернуто, а в это время активируется дочернее окно, и пока его не закроешь, главное окно развернуть не получается

← →
Palladin © (2009-09-17 17:15) [1]

главное окно это пакетик
дочерние окна - они сидят в этом пакетике, они не могут не свернуться если свернуть пакетик

тебе немножко не хватило до уровня "правильный составитель строк для поиска в гугл"
дарую тебе экспириенс
http://www.google.ru/search?hl=ru&safe=off&newwindow=1&q=%D0%BE%D0%BA%D0%BD%D0%B0+%D0%BA%D0%B0%D0%BA+%D0%B2+word+delphi+mdi&btnG=%D0%9F%D0%BE%D0%B8%D1%81%D0%BA&lr=

← →
pesttt (2009-09-17 17:33) [2]

опишу по подробнее ситуацию, чтобы было понятно что мне надо:

главное окно - онкно чата. дочернее окно - окно подсказки в правом нижнем углу экрана.

когда окно чата свернуто, и в этот момент появляется окно подсказки, то пока окно подсказки не закроется я не погу восстановить окно чата.

Palladin, а вы мне загуглили про mdi окна, которые, на сколько я знаю, не выходят за пределы главного окна

← →
Palladin © (2009-09-17 17:37) [3]

юный падаван даже не перешел по ссылке... прискорбно....

← →
Palladin © (2009-09-17 17:41) [4]

фу ты господи, ужость.... прескорбно

← →
TIF © (2009-09-17 18:22) [5]

> фу ты господи, ужость....

Не ужость. Прискорбно (так и только так)
Дальнейшее обсуждение по поводу русского языка и старения переношу в "Прочее" ;-)

> Palladin © (17.09.09 17:41) [4]

И вправду - раньше тебе было легче)

Таки "прискорбно", ибо "близко к состоянию скорби"

← →
pesttt (2009-09-18 10:35) [7]

> Palladin © (17.09.09 17:37) [3]
> юный падаван даже не перешел по ссылке... прискорбно....
>

и правда, прочитал и реализовал приложение "MDI в стиле Word".

создал форму, назначил ее главной и скрыл ее вот так:
program Project1; uses Forms, Unit1 in "Unit1.pas" {Form1}, Unit2 in "Unit2.pas" {Form2}, Unit3 in "Unit3.pas" {Form3}; {$R *.res} begin Application.Initialize; // Application.MainFormOnTaskbar := True; Application.ShowMainForm := false; Application.CreateForm(TForm1, Form1); Application.Run; end.
на создании этой формы написал
procedure TForm1.FormCreate(Sender: TObject); begin SetWindowLong(Application.Handle,GWL_ExStyle,GetWindowLong(Application.Handle,GW L_ExStyle) or WS_EX_ToolWindow); form2 := TForm2.Create(nil); form2.Show; end;
form2 - это и будет моя главная форма чата. чтобы у нее бвла своя кнопка на панели задач и чтобы форма сворачивалась нормально туда же написал создал в protected procedure CreateParams(var Params: TCreateParams);override;
и написал procedure TForm2.CreateParams(var Params: TCreateParams); begin inherited; // Добавляем в расширенный стиль флаг WS_EX_AppWindow, // чтобы форма с документом имела кнопку на панели задач. Params.ExStyle:=Params.ExStyle or WS_EX_AppWindow end;
а при закрытии form2 написал procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction); begin Application.Terminate end;

теперь при выводе форм-подсказок в нижнем правом углу и сворачивании/разворачивании главной формы никаких проблем не возникает.

Palladin, большое спасибо!

запретить сворачивание дочерних окон при сворачивании основного Найти похожие ветки