어린왕자 wrote:

> 안녕하세요.델초보 어린왕자입니다요..

> 이글을 읽으시는 고수님들의 오늘 하루 행복하길 빕니다...^^~

> 질문은 제목과 같아요..

> 타이틀없는 폼의 크기를 조정하고 싶은거예요..

> 위 제목을 해결하거나 아니면 보통폼의 타이틀을 없애거나..둘중 해야하는데..

> 또 메세지 후킹을 해야하나요? 복잡해서리 그건 시른뎅..

> 고수님 부탁합니다..



담 같이 해보세요..



타이클바 없이 Sizable 합니다.



unit Unit1;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;



type

TForm1 = class(TForm)

private

{ Private declarations }

public

{ Public declarations }

procedure CreateParams(VAR Params: TCreateParams); override;

end;



var

Form1: TForm1;



implementation



{$R *.DFM}



{ TForm1 }



procedure TForm1.CreateParams(var Params: TCreateParams);

begin

Inherited Createparams(Params);

WITH Params DO

Style := (Style OR WS_POPUP OR WS_BORDER) AND NOT WS_DLGFRAME;

end;



end.