社区
Delphi
帖子详情
如何实现透明PANEL
13023600339
2005-09-19 03:28:05
如何实现透明PANEL或有现成的控件可下载?请大家告知,谢谢
...全文
271
7
打赏
收藏
如何实现透明PANEL
如何实现透明PANEL或有现成的控件可下载?请大家告知,谢谢
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
7 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
g961681
2005-09-19
打赏
举报
回复
建议用Raise中的TRzPanel,不但可以直接用,还能看到它的源代码!
楚人无衣
2005-09-19
打赏
举报
回复
简单一些的,设其ParentColor为True不行吗
13023600339
2005-09-19
打赏
举报
回复
现在项目需要,得自己写透明PANEL的代码,二楼的代码运行期不能透明,大家能不能再提供源码?
楚人无衣
2005-09-19
打赏
举报
回复
Raise中的TRzPanel,有Transparent属性,很好用
13023600339
2005-09-19
打赏
举报
回复
有没有现在的PANEL控件?
gxgyj
2005-09-19
打赏
举报
回复
别人的//////////////
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
unit MyPanel;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls;
type
TMyPanel = class(TPanel)
private
{ Private declarations }
protected
{ Protected declarations }
procedure Paint; override;
public
{ Public declarations }
published
{ Published declarations }
end;
procedure Register;
implementation
procedure DrawParentImage(Control: TControl; Dest: TCanvas);
var
SaveIndex: Integer;
DC: HDC;
Position: TPoint;
begin
with Control do
begin
if Parent = nil then
Exit;
DC := Dest.Handle;
SaveIndex := SaveDC(DC);
{$IFDEF DFS_COMPILER_2}
GetViewportOrgEx(DC, @Position);
{$ELSE}
GetViewportOrgEx(DC, Position);
{$ENDIF}
SetViewportOrgEx(DC, Position.X - Left, Position.Y - Top, nil);
IntersectClipRect(DC, 0, 0, Parent.ClientWidth, Parent.ClientHeight);
Parent.Perform(WM_ERASEBKGND, DC, 0);
Parent.Perform(WM_PAINT, DC, 0);
RestoreDC(DC, SaveIndex);
end;
end;
procedure Register;
begin
RegisterComponents('Samples', [TMyPanel]);
end;
procedure TMyPanel.Paint;
var
Bitmap: TBitmap;
begin
if not (csDesigning in ComponentState) then
exit;
Bitmap := TBitmap.Create;
try
Bitmap.Height := ClientRect.Bottom;
Bitmap.Width := ClientRect.Right;
DrawParentImage(Self, Bitmap.Canvas);
canvas.CopyRect(ClientRect, Bitmap.canvas, ClientRect);
finally
Bitmap.free;
end;
end;
end.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
yaccor
2005-09-19
打赏
举报
回复
帮忙顶一下
Delphi7下简单
实现
Panel
透明
化
Delphi7下简单
实现
Panel
透明
化
delphi 真正
透明
panel
,使用简单
delphi7正常使用,可以放在任何容器内,依旧
透明
winform
panel
控件背景
透明
winform
panel
控件背景
透明
在网页中通过div+css
实现
半
透明
效果不难,今天我们看看一种在winfrom中
实现
的方法
Panel
透明
化
对
Panel
进行了
透明
化处理,效果相当的可以
C#
实现
透明
可移动窗体
C#
实现
透明
可移动窗体,加载
透明
png 做背景,
实现
漂亮UI。点击鼠标可拖动,支持自动缩放。
Delphi
5,388
社区成员
262,730
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章