PDA

View Full Version : گوشه های فرم



رحمانیان
شنبه 09 فروردین 1382, 15:01 عصر
سلام
می خواهم گوشه های فرم برنامه هلالی شکل باشد و فرمم مستطیلی نباشد چه طوری می توان این کار را انجام دهم

Hidarneh
دوشنبه 11 فروردین 1382, 13:22 عصر
برای این کار دو راه هست.
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
چهارشنبه 10 اسفند 1390, 00:27 صبح
برای این کار دو راه هست.
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
چهارشنبه 10 اسفند 1390, 09:57 صبح
ذوست عزیز . مرده رو از زیر خاک کشیدی بیرون میگی چرا مومیاییه؟:لبخند:

DarkACE
چهارشنبه 10 اسفند 1390, 17:06 عصر
ممنون میشم اگه کد سالمشو واسم بزارید. آخه لازمش دارم.

مرسی.

Ananas
جمعه 12 اسفند 1390, 12:52 عصر
سلام.
تو قسمت 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;