The Round Form

unit Unit1;

interface

uses

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

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

CloseBtn: TButton;

procedure FormCreate(Sender: TObject);

procedure CloseBtnClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

SetWindowRgn(form1.handle , CreateRoundRectRgn(1, 1, 200, 200, 200, 200), true);

end;

procedure TForm1.CloseBtnClick(Sender: TObject);

begin

Close;

end;

end.