다음을 참고하세요. x,y값에 정한 수치대로 폼의 크기가 결정되며,
Min의 x,y값과, Max의 x,y값이 일치되어야 합니다.
Min(100,200), Max(100,200) 이런식으로 말이죠.
API를 쓰지 않는 방법은, 폼의 Constraints의 Min, Max속성값을 설정해주면됩니다.
ex> Max(x)=800, Max(y)=600, Min(x)=800, Min(y)=600
그리고, borderIcons-[biMaximize]하면 됩니다.
private
procedure WMGetMinMaxInfo(var MSG: Tmessage);message WM_GetMinMaxInfo;
procedure TMDIChild.WMGetMinMaxInfo(var MSG:Tmessage);
begin
inherited;
with PMinMaxInfo(MSG.lparam)^ do
begin
with ptMinTrackSize do
begin
x:=
y:=
end;
with ptMaxTrackSize do
begin
y:=
x:=
end;
end;
end;
|