Скачать: CL | DM;

Forma   Найти похожие ветки 

← →
Senjer ©   (2004-12-22 21:45) [0]

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

---

← →
begin...end ©   (2004-12-22 21:46) [1]

> Senjer ©   (22.12.04 21:45)

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

---

← →
Sun bittern ©   (2004-12-22 21:47) [2]

Property - Constants

---

← →
Sun bittern ©   (2004-12-22 21:48) [3]

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

Конечно - Constraints

---

← →
Senjer ©   (2004-12-22 21:50) [4]

Что это Constraints?

---

← →
Sun bittern ©   (2004-12-22 22:09) [5]

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

---

← →
Bork   (2004-12-27 18:58) [6]

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

---

← →
Пат   (2004-12-27 19:54) [7]

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;

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

---

← →
Пат   (2004-12-27 19:55) [8]

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

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

 public

 end;

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: -0.978 c