간단한 방법 하나 올립니다..



일단 폼 맨위에 판넬을 올려놓고..

이미지 처리하시던 어떤식으로던 캡션바 처럼 꾸미세요..

그리고 폼의 BorderStyle을 bsNone으로 바꾸시면됩니다..



또 다른 방법은 캡션바를 지우고..

위와 같이 하는 방법입니다..

저는 미리 이런 폼을 만들어서..

상속받아서 사용합니다..



type

TfmSMotif = class(TForm)

plCaption: TPanel;

imgLogo: TImage;

imgClose: TImage;

imgMin: TImage;

imgMax: TImage;

procedure imgCloseClick(Sender: TObject);

procedure plCaptionMouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure imgMinClick(Sender: TObject);

procedure imgMaxClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

Constructor Create(AOWner:TComponent); Override;

end;



var

fmSMotif: TfmSMotif;



implementation



{$R *.DFM}



Constructor TfmSMotif.Create(AOWner:TComponent);

Begin

Inherited Create(AOwner);



// 캡션바 삭제

SetWindowLong(Handle, GWL_STYLE, GetWindowLong(Handle, GWL_STYLE) and not WS_CAPTION);

ClientHeight := Height;

End;



procedure TfmSMotif.imgCloseClick(Sender: TObject);

begin

Close;

end;



procedure TfmSMotif.plCaptionMouseDown(Sender: TObject;

Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

begin

ReleaseCapture;

SendMessage(Handle, WM_SYSCOMMAND, $F012, 0);

end;



procedure TfmSMotif.imgMinClick(Sender: TObject);

begin

WindowState:= wsMinimized;

end;



procedure TfmSMotif.imgMaxClick(Sender: TObject);

begin

If WindowState = wsMaximized then WindowState:= wsNormal

Else WindowState:= wsMaximized;

end;



end.





From 류..



코난 wrote:

> 다음 메신져 또는 기타메신져를 보면 윈도우에서 제공하는 기본Title Bar가 아니고,

> 이미지로 처리한 것들이 있는데 이런것들은 어떻게 작업을 해야 합니까?

>

> 프로그램하기 어려운가요?

>

> 방법을 아시는 분 있으면 좀 갈켜주세요.

>

> 감사합니다.