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, panel.Height);
MarginX := Margin;
MarginY := panel.Height - panel.ClientHeight - Margin;
ClientRgn := CreateRectRgn(MarginX, MarginY, MarginX + panel.ClientWidth,
MarginY + panel.ClientHeight);
CombineRgn(FullRgn, FullRgn, ClientRgn, RGN_DIFF);
for I:=0 to panel.ControlCount-1 do begin
X := MarginX + panel.Controls[I].Left;
Y := MarginY + panel.Controls[I].Top;
ControlRgn := CreateRectRgn(X, Y, X + panel.Controls[I].Width,
Y + panel.Controls[I].Height);
CombineRgn(FullRgn, FullRgn, ControlRgn, RGN_OR);
end;
SetWindowRgn(panel.Handle, FullRgn, True);
end;
[출처] [펌] 패널을 투명하게|작성자 neonetsoft
'Delphi, RadStudio' 카테고리의 다른 글
[개발/delphi] 델파이 클립보드 이미지를 jpeg으로 저장하기 (0) | 2015.09.28 |
---|---|
[개발/델파이] Delphi7에서 Animated GIF 사용하기 (0) | 2015.08.25 |
[개발/delphi] 델파이 TList의 활용 (0) | 2015.07.03 |
[개인] Borland Delphi 5로 개발된 암호화 DLL (0) | 2015.02.19 |
[개발/델파이] delphi - ESC 키 입력 받기 (0) | 2014.12.22 |
댓글