ساختن فرم غير مربعی در دلفی

یکی از دوستان ایمیل زده بود و این سوال رو پرسیده بود:

salam

ye soali dashtam ... ye for age bekham besazam ke sheklesh 4 goosh nabashe ( mese tamoome formaye mamool) fek konam bayad az API ha komak begiram ... mishe tabeasho begin va komake bishtari konin ya age barnamei darin ke formatoon injooriyan, vasam soursesho mail konin???

dar zemn man manzooram too Delphiye.

Mamnoon

 

بله درسته. باید از API استفاده کنید. تابع CreateEllipticRgn این کار رو برای شما انجام میده. بدین صورت که که شما دو نقطه که میخواید دایره رو باهاش رسم کنید رو مشخص می کنید و با تابع SetWidnowRgn این عمل را انجام می دهید.

 

procedure TForm1.Button1Click(Sender: TObject);

var n1:Integer;

begin

n1:=CreateEllipticRgn(10,10,200,300);

SetWindowRgn(Form1.Handle , n1 , True);

end;

 

  
نویسنده : محمد ; ساعت ۳:٤٥ ‎ب.ظ روز دوشنبه ۱٢ آبان ،۱۳۸٢