Delphi Border Corner

Program Kali ini juga sangat sederhana, dan bias dijadikan penghias form kita agar lebih menarik

Program ini untuk membuat border menjadi melengkung di ke 4 sisinya .. .

Hasil compile nya seperti dibawah ini :

Berikut Listing Programnya langsung anda coba sendiri . . .

Klik 2x di form . .

//listing source .

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

var

f:HRGN;

begin

Form1.Borderstyle:=bsNone;

f:=CreateRoundRectRgn(

0,// x-coordinate of the region's upper-left corner

0,// y-coordinate of the region's upper-left corner

clientwidth,// x-coordinate of the region's lower-right corner

clientheight,// y-coordinate of the region's lower-right corner

40,// height of ellipse for rounded corners

40);// width of ellipse for rounded corners

SetWindowRgn(Handle,f,True);

end;

end.

by Admind . . . .