گوشه های فرم

[رحمانیان]

سلام
می خواهم گوشه های فرم برنامه هلالی شکل باشد و فرمم مستطیلی نباشد چه طوری می توان این کار را انجام دهم

[Hidarneh]

برای این کار دو راه هست.
1- خودت بنویسی . مثل کد زیر :

var r:hrgn;

begin

// baray boridan goshe form

r:=CreateEllipticRgn(-15,-15,width+15,height+15);

setwindowrgn(handle,r,true);

// baray bargardandan be halat aady

setwindowrgn(handle,0,true);

deleteobject(r);

2- استفاده از کامپوننت Tabcshapform که جزو ABC است .

[DarkACE]

برای این کار دو راه هست.
1- خودت بنویسی . مثل کد زیر :

var r:hrgn;

begin

// baray boridan goshe form

r:=CreateEllipticRgn(-15,-15,width+15,height+15);

setwindowrgn(handle,r,true);

// baray bargardandan be halat aady

setwindowrgn(handle,0,true);

deleteobject(r);

2- استفاده از کامپوننت Tabcshapform که جزو ABC است .

این کد هاش چرا اینجوریه؟

[Mask]

ذوست عزیز . مرده رو از زیر خاک کشیدی بیرون میگی چرا مومیاییه؟

[DarkACE]

ممنون میشم اگه کد سالمشو واسم بزارید. آخه لازمش دارم.

مرسی.

[Ananas]

سلام.
تو قسمت OnPaint فرمتون بنویسید :

procedure TForm1.FormPaint(Sender: TObject);

begin

  Self.BorderStyle := bsNone;

  Self.TransparentColor := True;

  Self.Canvas.Brush.Color := $07000000;

  Self.Canvas.Rectangle(0, 0, Self.Width, Self.Height);

  Self.Canvas.Brush.Color := Self.Color;

  Self.Canvas.RoundRect(0, 0, Self.Width, Self.Height, Self.Width div 4, Self.Height div 4);

end;