大家好,又见面了,我是你们的朋友全栈君。如果您正在找激活码,请点击查看最新教程,关注关注公众号 “全栈程序员社区” 获取激活教程,可能之前旧版本教程已经失效.最新Idea2022.1教程亲测有效,一键激活。
Jetbrains全系列IDE稳定放心使用
代码
=
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
发布者:全栈程序员-用户IM,转载请注明出处:https://javaforall.cn/189846.html原文链接:https://javaforall.cn
【正版授权,激活自己账号】: Jetbrains全家桶Ide使用,1年售后保障,每天仅需1毛
【官方授权 正版激活】: 官方授权 正版激活 支持Jetbrains家族下所有IDE 使用个人JB账号...