아래와 같이 코딩하면 사이즈가 고정됩니다..
public
Procedure CreateParams(Var Params:TCreateParams); Override;
end;
var
fmMenuScreen: TfmMenuScreen;
Procedure OpenMenu(AOwner:TApplication; MenuName,UserID,Password,UserName:String); Export;
implementation
{$R *.DFM}
Procedure TfmMenuScreen.CreateParams(Var Params:TCreateParams);
Begin
Inherited CreateParams(Params);
With Params do
Style:= Style and not (WS_MAXIMIZEBOX or WS_SIZEBOX);
End;
From 류..
|