گوشه های فرم

[رحمانیان]

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

[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;