Programalama > DELPHI

//FORMUN CREATE YORDAMINA KODU EKLEYIN Yuvarlak Form olussun

Var
Sekil: HRGN;
Begin
Sekil := CreateEllipticRgn(0, 0, Width, Height);
SetWindowRgn(Form1.Handle, sekil, true);
End; 
 
//FORMUN CREATE YORDAMINA KODU EKLEYIN. Delik Desik Form olussun

var
Combined_Rgn : HRGN;
Inner_Rgn : HRGN;
Outer_Rgn : HRGN; 

begin
Outer_Rgn := CreateRectRgn(0,0,Width,Height);
Inner_Rgn := CreateEllipticRgn(width div 2,height div 2, width div 4,height div 4);
Combined_Rgn := CreateRectRgn(0,0,0,0);
CombineRgn(Combined_Rgn, Outer_Rgn, Inner_Rgn, RGN_DIFF);
SetWindowRgn(Form1.Handle, Combined_Rgn, True);
end;