| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Forma [D6, WinXP]

Senjer ©   (2004-12-22 21:45:00) 

Подскажите как сделать, чтобы форма при изменении размеров не становилась меньше определенных заданных мной размеров. Заранее благодарен.

---

Пат   (2004-12-27 19:55:00) [1]

забыл добавить:

type
 TForm1 = class(TForm)
   pnl: TPanel;
   procedure FormResize(Sender: TObject);
 private
 procedure CenterPanel;
 procedure WMWindowPosChanging(var Msg:TWMWindowPosChanging);
 Message WM_WindowPosChanging;

 public

 end;

---

Пат   (2004-12-27 19:54:00) [2]

uses Math;

procedure TForm1.CenterPanel;
begin
 if pnl.width < ClientWidth then
       pnl.left:=(ClientWidth - pnl.Width) div 2
    else
    pnl.left:=0;
 if pnl.Height < ClientHeight then
 pnl.top:=(ClientHeight - pnl.Height) div 2
else
 pnl.top:=0;
end;

procedure TForm1.WMWindowPosChanging(var Msg:TWMWindowPosChanging);
var CapH:integer;
begin
CapH:=GetSystemMetrics(SM_CYCAPTION);
Msg.WindowPos^.cx:=Max(Msg.WindowPos^.cx,pnl.width+20);
Msg.WindowPos^.cy:=Max(Msg.WindowPos^.cy,pnl.height+20+CapH);
inherited;
end;
procedure TForm1.FormResize(Sender: TObject);
begin
CenterPanel;
end;

"...Помоги другим - помогут и тебе..."

---

Bork   (2004-12-27 18:58:00) [3]

procedure TForm1.WMGetMinMaxInfo(var Message : TWMGetMinMaxInfo);
begin
 Message.MinMaxInfo^.ptMinTrackSize := Point(MinWidth, MinHeight);(*минимальный размер*)
 Message.MinMaxInfo^.ptMaxTrackSize := Point(MaxWidth, Maxheight);(*максимальный размер*)
end;

---

Sun bittern   (2004-12-22 22:09:00) [4]

Свойство формы это в инспекторе объектов

---

Senjer   (2004-12-22 21:50:00) [5]

Что это Constraints?

---

Sun bittern   (2004-12-22 21:48:00) [6]

Sun bittern ©   (22.12.04 21:47) [2]

Конечно - Constraints

---

Sun bittern   (2004-12-22 21:47:00) [7]

Property - Constants

---

begin...end   (2004-12-22 21:46:00) [8]

> Senjer ©   (22.12.04 21:45)

Обрабатывать OnResize.

---

Наверх