Real Name	:	Nesrin Uluca
Subject	:	Geometrik Formlar Olusturma
Description	:	Formumuzun OnShow Eventine aşağıdaki kodu yazıyoruz.
procedure TForm1.FormShow(Sender: TObject); var regionhandle:integer; area:array[0..2] of tpoint; begin area[0].x := 0; area[0].y := 0; area[1].x := 400; area[1].y := 0; area[2].x := 200; area[2].y := 200; regionhandle:=CreatePolygonRgn(area,3,ALTERNATE); // 3 polygonda kaç tane nokta olduğunu belirtir. // area ise polygon koordinatlarinin bulunduğu dizi. setwindowrgn(form1.handle,RegionHandle,true); end; Area dizisinde verilen x,y koordinatlarina göre polygon hesaplanır. Hesaplanan Handle ile herhangi bir form'a bu polygon şekli verilebilir. Polygon dışında kalan grafikler yarım veya hiç gözükmez.
Rating	:	3.00 (out of 5)

Visitor Voting Booth

:

ExcellentVery GoodGoodFairPoor