从外界控制Panel透明(不通过继承)

chhrsas 2011-05-26 11:40:29
http://topic.csdn.net/t/20031119/12/2471680.html这个帖子的二楼看到月亮的回复。
他说的第二种方:从外界控制Panel透明,我试了半天,未能实现,不知道哪里写错了。
还请大家指点下。

var
originProc : TWndMethod;

procedure TForm1.btn1Click(Sender: TObject);
//var
//newProc : TWndMethod;
begin
//newProc := NewWindowProc;
SetWindowLong(pnl1.Handle, GWL_EXSTYLE, GetWindowLong(pnl1.Handle, GWL_EXSTYLE) or WS_EX_TRANSPARENT);
originProc := pnl1.WindowProc;
pnl1.WindowProc := NewWindowProc;
//SetWindowLong(pnl1.handle, GWL_WNDPROC, Integer(@newProc));
RecreateWnd;
end;

procedure TForm1.NewWindowProc(var Message: TMessage);
begin
if Message.Msg = WM_ERASEBKGND then
Message.result := 1
else
//CallWindowProc(@originProc,pnl1.Handle, Message.Msg, Message.WParam, Message.LParam);
originProc(Message);
end;
...全文
101 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
  • 打赏
  • 举报
回复
cicidodo 2011-06-01
  • 打赏
  • 举报
回复
句柄,发消息
chhrsas 2011-05-27
  • 打赏
  • 举报
回复
再顶啊。
chhrsas 2011-05-26
  • 打赏
  • 举报
回复
楼上的方法我知道,我是想 不通过继承实现。
DelphiTeacher 2011-05-26
  • 打赏
  • 举报
回复
网上的TGlass 代码可以实现透明,,但使用起来有一些局限性。。
最好是直接绘制父控件的背景实现透明。。
因为不算是标准的Win控件,透明起来没按钮和文本框等快速的手段
DelphiTeacher 2011-05-26
  • 打赏
  • 举报
回复
呵呵,,大题小作。。
如果要截获WM_ERASEBKGND消息让WIN不绘制。。
直接
procedure WMEraseBkGnd(var Message:TWMERASEGKGND);message WM_ERASEBKGND;
begin
Message.Result:=1;
end;
何必自己定义一个消息回调过程。。
chhrsas 2011-05-26
  • 打赏
  • 举报
回复
项起啊,有没有帮下忙啊。月亮呢?

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧