فرم سوراخدار

[shirin71]

آیا می توان فرمی داشت که در آن سوراخی وجود داشته باشد؟

بله ، این کار به راحتی انجام می شه ، اسکریپت زیر رو در رویداد 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;