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;

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