فورم دائري

ضع زر جديد والصق الكود التالي بداخله ونفذ

VAR

h: THandle;

begin

h := CreateEllipticRgn(40, 40, 300, 200);

SetWindowRgn(Handle,h,TRUE);