문보석 께서 말씀하시기를...

> 안녕하세요...

>

> 질문은 제목대로입니다...

>

> 보더스타일을 bsNone 으로 하니까 밋밋한 폼이 뜨는데요...

>

> 여기서 폼은 캡션바도 없고 보더 아이콘도 없는 말그대로 회색폼입니다...

>

> 외곽에 약간의 3차원 효과를 일반 버튼처럼 주고 싶은데요...

>

> ctl3d 프로퍼티를 설정해주면 될줄알았는데 안되더군요...

>

> 그럼 조언을 부탁드립니다...

>

> 안녕히계세요...



보더스타일을 bsNone으로 셋팅 안하구선 동일한 효과를 얻으면 가능한거 아닌가요?

아래 코드를 참고 하세요..



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}



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.