[개발/델파이] 네모나지 않은 폼 만들기

네모나지 않은 폼 만들기

아래의 소스는 폼을 타원형으로 만들어 준다.

procedure TForm1.FormCreate(Sender: TObject);

var

 R : HRgn;

begin

 R := CreateEllipticRgn(-15,-15,Width+15,Height+15);

 SetWindowRgn(Handle,R,True);

end;