ايجاد کردن فرم به شکل بيضی

اين کار به سادگی در دو خط قابل انجام است:

 

procedure TForm1.FormCreate(Sender: TObject);
var n1:Integer;
begin
n1:=CreateEllipticRgn(10,10,200,300);
SetWindowRgn(handle,n1,true);
end;

  
نویسنده : محمد ; ساعت ۱:٢٦ ‎ق.ظ روز جمعه ٢٥ مهر ،۱۳۸٢