Mega Code Archive

 

Categories / Delphi / Forms

 

Geometrik formlar olusturma

{www.freemine.com.tr.tc} Formumuzun OnShow Eventine assagidaki kodu yaziyoruz. 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 oldugunu belirtir // area ise polygon koordinatlarinin bulundugu dizi. setwindowrgn(form1.handle,RegionHandle,true); end; Area dizisinde verilen x,y koordinatlarina göre polgon hesaplanir. Hesaplanan Handle ile herhangi bir form'a bu polyon sekli verilebilir. Polgon disinda kalan grafikler yarim veya hiç gözükmez.