大家好，又见面了，我是你们的朋友全栈君。如果您正在找激活码,请点击查看最新教程,关注关注公众号 “全栈程序员社区” 获取激活教程,可能之前旧版本教程已经失效.最新Idea2022.1教程亲测有效,一键激活。
Jetbrains全系列IDE稳定放心使用
代码
TestPanel
=
class
(Tpanel)
public
procedure Paint;
override
;
end;
procedure TestPanel.Paint;
var
R: TRect;
begin
inherited;
R :
=
ClientRect;
DrawParentBackground(Self, Canvas.Handle, @R, True);
//
透明 不透明则 DrawParentBackground(Self, Canvas.Handle)
end;
=
nil;
bDrawErasebkgnd: Boolean
=
False);
var
LastOrigin: TPoint;
begin
GetWindowOrgEx(DC, LastOrigin);
Control.Parent.Perform(WM_ERASEBKGND, Integer(DC), Integer(DC));
Control.Parent.Perform(WM_PAINT, Integer(DC), Integer(DC));
SetWindowOrgEx(DC, LastOrigin.X, LastOrigin.Y, nil);
end;
//
测试DEMO
procedure TForm1.Button1Click(Sender: TObject);
var
T1: TestPanel;
begin
T1 :
=
TestPanel.Create(Self);
T1.Left :
=
100
;
T1.Caption :
=
‘
dd
‘
;
T1.Parent :
=
Self;
end;
=
class
(Tpanel)
public
procedure Paint;
override
;
end;
procedure TestPanel.Paint;
var
R: TRect;
begin
inherited;
R :
=
ClientRect;
DrawParentBackground(Self, Canvas.Handle, @R, True);
//
透明 不透明则 DrawParentBackground(Self, Canvas.Handle)
end;
procedure DrawParentBackground(Control: TControl; DC: HDC; R: PRect
=
nil;
bDrawErasebkgnd: Boolean
=
False);
var
LastOrigin: TPoint;
begin
GetWindowOrgEx(DC, LastOrigin);
Control.Parent.Perform(WM_ERASEBKGND, Integer(DC), Integer(DC));
Control.Parent.Perform(WM_PAINT, Integer(DC), Integer(DC));
SetWindowOrgEx(DC, LastOrigin.X, LastOrigin.Y, nil);
end;
//
测试DEMO
procedure TForm1.Button1Click(Sender: TObject);
var
T1: TestPanel;
begin
T1 :
=
TestPanel.Create(Self);
T1.Left :
=
100
;
T1.Caption :
=
‘
dd
‘
;
T1.Parent :
=
Self;
end;
转载于:https://www.cnblogs.com/chengxin1982/archive/2010/01/15/1648675.html
版权声明：本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请联系我们举报，一经查实，本站将立刻删除。
发布者：全栈程序员-站长，转载请注明出处：https://javaforall.net/189846.html原文链接：https://javaforall.net
