آیا می توان فرمی داشت که در آن سوراخی وجود داشته باشد؟بله ، این کار به راحتی انجام می شه ، اسکریپت زیر رو در رویداد OnPaint فرمتون کپی کنید:Procedure TForm1.FormPaint(Sender: TObject);VarWnd:HWnd;R1,R2:HRGN;R:TRect;BeginWnd:=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;
علاقه مندی ها (بوک مارک ها)