Текущий архив: 2003.05.15;
Скачать: CL | DM;

Вниз

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

← →
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 форума, но подобной темы не нашел. Может, ссылочку кинете?

---

← →
supersan ©   (2003-04-30 17:17) [7]

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

---

← →
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.


---

Страницы: 1 вся ветка

Текущий архив: 2003.05.15;
Скачать: CL | DM;

Наверх

Память: 0.49 MB
Время: 0.015 c