심형성 wrote:

> 델파이에서 폼 모양을 바꿀 수 있습니까?

> 가르쳐 주십시오......



unit Unit1;



interface



uses

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



type

TForm1 = class(TForm)

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;



var

Form1: TForm1;



implementation

{$R *.DFM}



procedure TForm1.FormCreate(Sender: TObject);

var

HR: HRgn;

n:array[0..3] of TPoint;

begin

n[0] := Point(Width div 2,1); // 위

n[1] := Point(1, Height div 2); // 왼쪽

n[2] := Point(Width div 2,Height); // 아래

n[3] := Point(Width, Height div 2); // 오른쪽



// Region 함수 호출

// Ellispe: CreateEllipticRgn(Left, Top, Right, Bottom)

// Rectangle: CreateRectRgn(Left, Top, Right, Bottom)

// RoundRect: CreateRoundRectRgn(Left, Top, Right, Bottom)

// Polygon: CreatePolygonRgn(Point, PointCount, ALTERNATE)

// 아래는 마름모꼴 형태입니다

HR:= CreatePolygonRgn(n, 4, Alternate);



// Window Setting API

SetWindowRgn(Handle, HR, True);

end;



end.