我自己重载了1下消息，该如何声明？

Question

使用方法有问题
正确使用如下
声明
procedure WMEraseBKGND(var Msg:TWMEraseBKGND); message WM_ERASEBKGND;
实例
procedure WMEraseBKGND(var Msg:TWMEraseBKGND);
begin
 ...
end;

Answer 1

  private
    { Private declarations }procedure WMEraseBKGND(var Msg:TWMEraseBKGND); message WM_ERASEBKGND;
仍然提示：
[error]unit1.pas(23):Unsatisfied forward or external declaration :'TForm1.WMEraseBKGND'
是不是我uses少装文件了？

Answer 2

实例写成这样，加TForm1.
procedure TForm1.WMEraseBKGND(var Msg:TWMEraseBKGND);
begin
 Msg.Result := 0;
end;

Answer 3

unit ...interface
....
...type
  TForm1 = class(TForm)
    epRegionForm1: TepRegionForm;
    RxLabel1: TRxLabel;
    RxLabel2: TRxLabel;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormPaint(Sender: TObject);  private
    { Private declarations }      procedure WMEraseBKGND(var Message:TMessage); message WM_ERASEBKGND;
  end;...
...implementation
  procedure TForm1.WMEraseBKGND(var Message:TMessage);//缺TForm1.
  begin
    Message.Result := 0 ;
  end;

Answer 4

改好了
epRegionForm1透明窗体
RxLabel2透明字符
我希望在桌面上写字
可以窗体一覆盖，
rxlabel2的内容就变为它上面窗体的痕迹了
不知道
wmerasebkgnd能不能解决：）

Answer 5

我做的是双重透明
 label透过form得到桌面
可以当有其他程序覆盖时候
label无法确认，就读其他程序的图象了
我研究23小时了