한대필 wrote:

> * 사용환경 : 델파이5 / Windows 98

>

> 안녕하세요? 반갑습니다.

>

> 질문이 있습니다.

>

> 네모난 폼이 싫습니다.

> 동그랗게 그리고 그위에 동그란 예쁜 이미지를 올려 놓으려고 합니다.

>

> 고수님들 많은 조언 부탁 드립니다.

>



하이염...



예전에 델파이 세상이라는 동호회에서 (매주 월, 수, 금 마다 델파이 정보 메일보내줌)



에서 발송했던 메일의 내용을 그대로 옴겨요... 한번 따라해 보시면...



아실겁니다. 아래의 내용입니다.







=============================================================================



안녕하십니까? 푸하하...



델파이 세상의 교주 입니다.



오늘의 설교 내용은....

http://members.namo.co.kr/~dscom1/00076.exe 이구요...

여러가지의 폼 형태를 제작해 보는 겁니다용....



다음 설교 내용은...

http://members.namo.co.kr/~dscom1/000728.exe 이구요...

자신만의 스케줄을 만들수 있는 달력입니다....





자 그럼. 오늘의 설교 내용입니다.



아~! 오늘은 시간이 없어서요...... 지송합니다.



주석을 못달것 같어요... 지금 빨리 다른 업체에서 프로그래밍 해야하기 땜시요...



그래도 예전에 설명했던 거니깐 상관은 없겠지요... 헤헤..



소스만 보여드릴께요.. 지송합니다.



=============================================

폼1...

unit Unit1;



interface



uses

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

StdCtrls;



type

TForm1 = class(TForm)

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;



var

Form1: TForm1;



implementation

uses

unit2,unit3,unit4, Unit5;

{$R *.DFM}



procedure TForm1.Button1Click(Sender: TObject);

begin

with TForm2.Create(Self) do

try

Showmodal;

finally

free;

end;

end;



procedure TForm1.Button2Click(Sender: TObject);

begin

with TForm3.Create(Self) do

try

Showmodal;

finally

free;

end;

end;



procedure TForm1.Button3Click(Sender: TObject);

begin

with TForm4.Create(Self) do

try

Showmodal;

finally

free;

end;



end;



procedure TForm1.Button4Click(Sender: TObject);

begin

with TForm5.Create(Self) do

try

Showmodal;

finally

free;

end;

end;



end.

===========================================================

폼2

unit Unit2;



interface



uses

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

ExtCtrls;



type

TForm2 = class(TForm)

Panel1: TPanel;

Panel2: TPanel;

Panel3: TPanel;

Panel4: TPanel;

Panel5: TPanel;

procedure FormResize(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;



var

Form2: TForm2;



implementation



{$R *.DFM}



procedure TForm2.FormResize(Sender: TObject);

var

WindowRgn, HoleRgn : HRgn;

begin

WindowRgn := 0;

GetWindowRgn(Handle, WindowRgn);

DeleteObject(WindowRgn);

WindowRgn := CreateRectRgn(0,0,Width, Height);

HoleRgn := CreateRectRgn(Panel3.Width + 6, Panel1.Height + 25,

Width - (Panel4.Width + 6), Height - (Panel2.Height + 6));

CombineRgn(WindowRgn, WindowRgn, HoleRgn, RGN_DIFF);

SetWindowRgn(Handle, WindowRgn, TRUE);

DeleteObject(HoleRgn);



end;



end.



=====================================================================

폼3

unit Unit3;



interface



uses

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



type

TForm3 = class(TForm)

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;



var

Form3: TForm3;



implementation



{$R *.DFM}



procedure TForm3.FormCreate(Sender: TObject);

var

MyForm : HRGN;

Pixel : array[0..2] of TPoint;

begin

Pixel[0] := Point(0, 0); //폼의 좌표를 설정

Pixel[1] := Point(Width, 0);

Pixel[2] := Point(Width div 2, Height);

MyForm := CreatePolygonRgn(Pixel, 3, ALTERNATE);

SetWindowRgn(Handle, MyForm, TRUE);



end;



end.

========================================================

폼4

unit Unit4;



interface



uses

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

StdCtrls;



type

TForm4 = class(TForm)

Button1: TButton;

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);



private

{ Private declarations }

public

{ Public declarations }

end;



var

Form4: TForm4;



implementation



{$R *.DFM}



procedure TForm4.FormCreate(Sender: TObject);

var

MyForm : HRGN;

begin

MyForm := CreateEllipticRgn(0, 0, Width, Height); //타원의 폼 설정

SetWindowRgn(Handle, MyForm, TRUE);

end;





procedure TForm4.Button1Click(Sender: TObject);

begin

Close;

end;



end.

==================================================================

폼5

unit Unit5;



interface



uses

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

StdCtrls;



type

TForm5 = class(TForm)

Button1: TButton;

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;



var

Form5: TForm5;



implementation



{$R *.DFM}



procedure TForm5.FormCreate(Sender: TObject);

var

r1,r2 : HRgn;

begin

r1 := CreateEllipticRgn(1, -1, Width - 1, Height);

r2 := CreateEllipticRgn(50, 50, Width - 50, Height - 50);

CombineRgn(r2, r1, r2, RGN_XOR);

SetWindowRgn(handle, r2, True)

end;



procedure TForm5.Button1Click(Sender: TObject);

begin

close;

end;



end.