Delphi/꿀팁
투명 패널 만들기(Transparency Panel)
uses Windows;procedure TransPanel(var panel : TPanel);var I, X, Y : Integer; FullRgn, ClientRgn, ControlRgn : THandle; Margin, MarginX, MarginY : Integer;begin Margin := (panel.Width - panel.ClientWidth) div 2; MarginX := Margin; MarginY := panel.Height - panel.ClientHeight - Margin; FullRgn := CreateRectRgn(0, 0, panel.Width, panel.Height); ClientRgn := CreateRectRgn(MarginX, MarginY, MarginX +..