반응형 TPanel 투명하게1 [개발/델파이] delphi TPanel or TForm 을 투명하게 delphi TPanel or TForm 을 투명하게 procedure TForm1.Button1Click(Sender: TObject); begin ClearPanel(TPanel(panel1));//전달인수를 폼으로 하면 폼또한 투명효과를 줄 수 있다. end;procedure TForm1.ClearPanel(var panel : TPanel); var I : Integer; FullRgn, ClientRgn, ControlRgn : THandle; Margin, MarginX, MarginY, X, Y : Integer; begin Margin := (panel.Width - panel.ClientWidth) div 2; FullRgn := CreateRectRgn(0, 0, panel.Width,.. 2015. 7. 3. 이전 1 다음 반응형