LONGDR님의 델파이 화는 이렇습니다.
C에서는 되는데 델파이에서 안된다니... 무슨 그리 섭한 말씀을... ^^;
type
TForm1 = class(TForm)
private
procedure CreateParams(Var Params: TCreateParams); override;
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.CreateParams(Var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.Style := Params.Style xor WS_MAXIMIZEBOX;
end;
참고하세요...
|