سلام
می خواهم گوشه های فرم برنامه هلالی شکل باشد و فرمم مستطیلی نباشد چه طوری می توان این کار را انجام دهم
سلام
می خواهم گوشه های فرم برنامه هلالی شکل باشد و فرمم مستطیلی نباشد چه طوری می توان این کار را انجام دهم
برای این کار دو راه هست.
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 است .
ذوست عزیز . مرده رو از زیر خاک کشیدی بیرون میگی چرا مومیاییه؟
ممنون میشم اگه کد سالمشو واسم بزارید. آخه لازمش دارم.
مرسی.
سلام.
تو قسمت 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;