小弟我想获取Panel的Caption变化情况，就像Edit的chang事件发生一样

我想获取Panel的Caption变化情况，就像Edit的chang事件发生一样
我想做一个功能，就是当panel的Caption变化的时候，能够获取Caption的内容，我的想法是模仿Edit的OnChange事件，当Edit的内容变化的时候，就发生这个事件，就是另外做一个Panel控件，增加一个OnChange事件，跟踪Edit的OnChange源码有些地方不明白，不知道什么地发生了Text变化内容的判断，也看不到对消息的处理方法，请大家指点一二，或者有什么别的方法判断Panel的Caption变化了

Delphi(Pascal) code

第一步：TCustomEdit = class(TWinControl)protectedprocedure Change; dynamic;procedure TCustomEdit.Change;begin  inherited Changed;  if Assigned(FOnChange) then FOnChange(Self);end;第二步：procedure TControl.Changed;begin  Perform(CM_CHANGED, 0, Longint(Self)); //这里的self是edit1 还是 TControl?end;第三步：function TControl.Perform(Msg: Cardinal; WParam, LParam: Longint): Longint;var  Message: TMessage;begin  Message.Msg := Msg;  Message.WParam := WParam;  Message.LParam := LParam;  Message.Result := 0;  if Self <> nil then WindowProc(Message);//为什么要在这里进行判断？  Result := Message.Result;end;第四步：不知道怎么跟踪了，看了一下WindowProc是一个处理过程类属性找到的一个CMchanged处理的方法在TWinControlprocedure TWinControl.CMChanged(var Message: TMessage);begin  if FParent <> nil then FParent.WindowProc(Message);end;应该不属于第四步吧，因为TWinControl是从TControl继承过来的

[解决办法]
提供一个setCaption的方法，外部只能通过它去修改caption
然后在setCaption里触发OnChange事件
[解决办法]
提供一个setCaption的方法，外部只能通过它去修改caption
然后在setCaption里触发OnChange事件
支持二楼的做法，这样比较简单易用。
[解决办法]
一个类的实例可以有很多个，但它们都是同一级的
一个类的基类可以有好几个，它们都不是同一级的
self是实例的指针，都是同一级的，但是不同个，也就是属性的具体值会不同

基类的属性，子类好像无法再定义一个同名的属性——准确度80%
方法倒是可以重载或覆盖——准确度80%
一般是 Tfatherclass(self).samefun(...)——准确度50%
常用的是一个保留字：inherited 来指代——准确度60%
[解决办法]
如果只是处理个别TPanel对象，可以直接在from中写代码：

Delphi(Pascal) code

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, ExtCtrls, StdCtrls;type  TPanel = class(ExtCtrls.TPanel)  private    FOnChange: TNotifyEvent;    procedure CMTextChanged(var Message: TMessage); message CM_TEXTCHANGED;  public    property OnChange:TNotifyEvent read FOnChange write FOnChange;  end;  TForm1 = class(TForm)    Panel1: TPanel;    Button1: TButton;    procedure FormCreate(Sender: TObject);    procedure Button1Click(Sender: TObject);  private    { Private declarations }    procedure PanelTextChange(Sender: TObject);  public    { Public declarations }  end;var  Form1: TForm1;implementation{$R *.dfm}{ TPanel }procedure TPanel.CMTextChanged(var Message: TMessage);begin  if Assigned(FOnChange) then // 这里激发事件，也可直接在这里写处理代码    FOnChange(Self);  inherited;end;{ TForm1 }procedure TForm1.PanelTextChange(Sender: TObject);begin  ShowMessage(Panel1.Caption);end;procedure TForm1.FormCreate(Sender: TObject);begin  Panel1.OnChange := PanelTextChange;end;procedure TForm1.Button1Click(Sender: TObject);begin  Panel1.Caption := '1234567890';end;end. 

 

查看更多 下一篇