کد دلفی تغییر حالت فرم

برای تغییر فرم خود به حالت های منحنی می توانید از این کد در برنامه خود استفاده کنید .

Procedure tform1.formcreate(sender:tobject

Var

      Hregion:hrgn;

Begin

Borderstyle:=bsnone;

Hregion:=createellipticrgn(1,1,200,200);

Setwindowrgn(handle,hregion,true);

End;