Q&A

  • 패널을 투명효과를 주려면???
패널의 바탕을 투명하게 주어서 패널 아래의 배경그림이 보이게
할수 있는 방법이 있는지요???
그럼 수고하세요!
1  COMMENTS
  • Profile
    조규춘 2002.09.25 20:45


    첨부파일을 확인하셔요..


    procedure TForm2.FormResize(Sender: TObject);
    var
       WindowRgn, HoleRgn : HRgn;
    begin
       WindowRgn := 0;
       GetWindowRgn(Handle, WindowRgn);
       DeleteObject(WindowRgn);
       WindowRgn := CreateRectRgn(0,0,Width, Height);
       HoleRgn := CreateRectRgn(Panel3.Width + 6, Panel1.Height + 25,
                       Width - (Panel4.Width + 6), Height - (Panel2.Height + 6));
       CombineRgn(WindowRgn, WindowRgn, HoleRgn, RGN_DIFF);
       SetWindowRgn(Handle, WindowRgn, TRUE);
       DeleteObject(HoleRgn);

    end;