۳- آیا می توان فرمی داشت که در آن سوراخی وجود داشته باشد؟
بله ، این کار به راحتی انجام می شه ، اسکریپت زیر رو در رویداد OnPaint فرمتون کپی کنید:
Procedure TForm1.FormPaint(Sender: TObject);
Var
Wnd:HWnd;
R1,R2:HRGN;
R:TRect;
Begin
Wnd:=Application.MainForm.Handle;
GetWindowRect(Wnd,R);
R1:=CreateRectRgn(0,0,R.Right-R.Left,R.Bottom-R.Top);
R2:=CreateEllipticRgn(10,30,150,120);
CombineRgn(R1,R1,R2,RGN_DIFF);
SetWindowRgn(Wnd,R1,true);
End;
دسته بندی :
پیوندها
