RichEdit控件加载背景图片

最新推荐文章于 2024-09-23 09:41:36 发布

原创最新推荐文章于 2024-09-23 09:41:36 发布 · 3.3k 阅读

2 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#forms #interface #windows #image #class

Delphi 专栏收录该内容

19 篇文章

订阅专栏

本文介绍如何通过修改 RichEdit 控件的样式属性及重写窗口过程来实现控件的透明效果，包括处理 WM_ERASEBKGND 消息避免背景被清除，以及 CN_CTLCOLORMSGBOX 和 CN_CTLCOLORSTATIC 消息返回空画刷句柄。

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, ComCtrls, ExtCtrls, jpeg; type TForm1 = class(TForm) Image1: TImage; RichEdit1: TRichEdit; procedure ClassWndProc(var Msg: TMessage); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; wproc: pointer; oldproc: TWndMethod; bb: hBrush; implementation {$R *.dfm} procedure Tform1.ClassWndProc(var Msg: TMessage); begin if msg.Msg = WM_ERASEBKGND then msg.result:=1 else if (msg.Msg=CN_CTLCOLORMSGBOX) or (msg.Msg=CN_CTLCOLORSTATIC) then begin bb:=null; msg.result := bb end else oldproc(msg) end; procedure TForm1.FormCreate(Sender: TObject); begin oldproc:=RichEdit1.WindowProc; RichEdit1.WindowProc := form1.ClassWndProc; SetWindowLong(RichEdit1.Handle, GWL_EXSTYLE, GetWindowLong(RichEdit1.Handle,GWL_EXSTYLE) or WS_EX_TRANSPARENT); end; end.

1.   使RichEdit的窗口透明.   SetWindowLong(RichEdit.Handle,   GWL_EXSTYLE,   GetWindowLong(RichEdit.Handle,GWL_EXSTYLE)   or   WS_EX_TRANSPARENT);

2.   截获RichEdit的Wndproc,   处理以下消息:
          CN_CTLCOLORMSGBOX..CN_CTLCOLORSTATIC:   返回一个NullBrush的handle
(防止编辑状态时清除背景).
          WM_ERASEBKGND:   什么都不做就返回1(防止窗口在刷新时清除背景)