{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.