Formun Şeklini Değiştirme

[DotCom]

Formumuzun OnShow Eventine aşşağıdaki kodu yazıyoruz.

Kod: Tümünü seç

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 
setwindowrgn(form1.handle,RegionHandle,true); 
end;