Системные кнопки окна (формы)

← →
supersan © (2003-04-30 12:35) [0]

Господа, здравствуйте. Простите за вопрос, но никто не знает, как можно добиться следующего.
У меня MDIChild форма. По некоторым причинам, ее желательно держать максимальной (WindowState:=wsMaximized). Причем желательно бы иметь на форме системные кнопки минимизации и закрытия окна (только их две и две обязательно), т.е. BorderIcons:=[biSystemMenu,biMinimize]. Но! Получается одно из двух:
1. Можно установить BorderIcons:=[biSystemMenu,biMinimize,biMaximize]
2. Нет вообще никаких кнопок, хотя в дезигнере ставлю нужные значения в true или false.
Итак, вопрос.
Как добиться максимального размера данного окна постоянно, либо корректно обрабатывать в FormResize изменение размеров (простой оператор
procedure TfmCard.FormResize(Sender: TObject); begin OnResize:=nil; WindowState:=wsMaximized; OnResize:=FormResize; end;
не работает :-()

← →
supersan © (2003-04-30 14:39) [1]

Ну вот, неужели никто с таким делом не сталкивался? :-(

← →
supersan © (2003-04-30 15:16) [2]

Господа, ну предложите чего-нить, плиз!!

← →
supersan © (2003-04-30 15:58) [3]

Господа, я ДИКО извиняюсь за назойливость, но, может, хоть кто-нибудь снизойдет до меня, а? Я в данный момент на работе, а время у нас уже 17:55. Все бы ничего, но кушать уже хочется, да и вообще "я так давно не видел маму". Подскажите, пожалуйста, идейку (можно парочку), я проверю и успокоюсь (хотел написать "упокоюсь", да ладно уж). Не проходите мимо!!!

← →
ANONIM (2003-04-30 16:14) [4]

Таки не получиться некогджа есть стандарты изоброжение окон ими и пользуцся!!!

← →
bi++ (2003-04-30 16:21) [5]

> supersan © (30.04.03 12:35)

Я лично думаю, что нужно обрабатывать сообщения Винды на сворачивание формы. Только не помкю, какое именно, гдето здесь видел на форуме. Поройся :)

← →
supersan © (2003-04-30 16:34) [6]

Наконец-то хоть кто-то откликнулся. Хотя лучше от этого не стало :-(

> bi++ (30.04.03 16:21)

До того, как задать вопрос, я провернул страниц 20 форума, но подобной темы не нашел. Может, ссылочку кинете?

Всем АААААгромное спасибо за ответы, очень неоценимую помощь они мне оказали!!! Всех с наступающим праздником. Надеюсь, кто-нибудь что-нибудь путнее скажет. Извините за резкость...

← →
bxMax (2003-04-30 17:23) [8]

Уважаемый суперскан, вы не интересовались что значит MDI? Multiple document interface. Это значит, что будет МНОГО дочерних окон. А вы по всей видимости хотите сделать документ SDI - Single document interface. В таком случае дочернее окно одно, и оно всегда развернуто. В дельфи я видел мастера для создания СДИ приложения. Спасибо за ссылочки в моем вопросе :-)

← →
Sandman25 (2003-04-30 17:35) [9]

uses ...Messages; type TMDIChild = class(TForm) procedure FormClose(Sender: TObject; var Action: TCloseAction); private { Private declarations } procedure wmgetminmaxinfo(var message:TWMGetMinMaxInfo); message wm_getminmaxinfo; public { Public declarations } end; implementation uses MAIN; {$R *.dfm} procedure TMDIChild.FormClose(Sender: TObject; var Action: TCloseAction); begin Action := caFree; end; procedure TMDIChild.wmgetminmaxinfo(var message: TWMGetMinMaxInfo); begin message.MinMaxInfo.ptMinTrackSize.X := MainForm.ClientWidth - 1; message.MinMaxInfo.ptMinTrackSize.Y := MainForm.ClientHeight - 1; {MainForm - родительская форма, в которой находится "дите". При необходимости можно расчитать минимальный размер формы по другому} end; end.

Системные кнопки окна (формы) Найти похожие ветки