Kamis, 14 April 2011

1. Membuat rounded form
Secara default form yang Anda buat akan berbentuk segi empat.
Dengan menambahkan beberapa baris kode berikut Anda dapat membuat form berbentuk elips atau lingkaran.
procedure TForm1.FormCreate(Sender: TObject);
var
region : HRgn;
begin
region := CreateEllipticRgn(1,1,200,200);
SetWindowRgn(handle, region, true);
end;

Tidak ada komentar:

Posting Komentar