要弄清楚Delphi中的回调,首先要弄清楚:
delphi中经常见到的以下两种定义
Type
TMouseProc = procedure (X,Y:integer);
TMouseEvent = procedure (X,Y:integer) of Object;
两者样子差不多但实际意义却不一样,
TMouseProc只是单一的函数指针类型;
TMouseEvent是对象的函数指针,也就是对象/类的函数/方法
区别在于类方法存在一个隐藏参数self,也就是说两者形参不一样,所以不能相互转换。
这也就是为什么delphi中可以这样赋值 button1.onClick:=button2.onClick;
却不能这样赋值 button1.onclick=buttonclick; (buttonclick为本地函数,button2.onclick为类方法)的原因!
要了解更多请访问:http://blog.csdn.net/rznice/article/details/6189094
接下来是两种回调方式:
第一种是看万一博客中的回调方式:http://www.cnblogs.com/del/archive/2008/01/15/1039476.html
第二种方式是我所需要的回调方式(两个Unit之间设置回调函数):
unit PropertyUseUnit;
interface
uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
type
TOnUserInfoShow = function(userName: string; userAge: Integer): Boolean of object; // 定义事件模型中的回调函数原型
TUserInfo = class private FName: string; FAge: Integer; FOnUserInfoShow: TOnUserInfoShow;
procedure FSetAge(theAge: Integer); public property Name: string read FName; // 只读属性(私有变量) property Age: Integer read FAge write FSetAge; // 读写属性(私有变量,私有方法)
property OnUserInfoShow: TOnUserInfoShow read FOnUserInfoShow write FOnUserInfoShow; // 事件模型回调函数
constructor Create; end;
TPropertyForm = class(TForm) btnRead: TButton; btnRW: TButton; btnCallBck: TButton; mmoText: TMemo; procedure btnReadClick(Sender: TObject); procedure btnRWClick(Sender: TObject); procedure FormCreate(Sender: TObject); procedure btnCallBckClick(Sender: TObject); private theUserInfo: TUserInfo; function UserInfoShow(name: string; Age: Integer):Boolean; { Private declarations } public { Public declarations } end;
var PropertyForm: TPropertyForm;
implementation
{$R *.dfm} { TPropertyForm }
procedure TPropertyForm.btnCallBckClick(Sender: TObject); begin Self.theUserInfo.OnUserInfoShow(Self.theUserInfo.name, Self.theUserInfo.Age); end;
procedure TPropertyForm.btnReadClick(Sender: TObject); begin Self.mmoText.Lines.Add('读取只读属性姓名:' + Self.theUserInfo.name); end;
procedure TPropertyForm.btnRWClick(Sender: TObject); begin Self.mmoText.Lines.Add('修改前的读写属性年龄为:' + inttostr(Self.theUserInfo.Age)); Self.theUserInfo.Age := 30; Self.mmoText.Lines.Add('修改后的读写属性年龄为:' + inttostr(Self.theUserInfo.Age)); end;
procedure TPropertyForm.FormCreate(Sender: TObject); begin Self.mmoText.Color := clBlack; Self.mmoText.Font.Color := clGreen; theUserInfo := TUserInfo.Create; Self.theUserInfo.OnUserInfoShow := Self.UserInfoShow; end;
function TPropertyForm.UserInfoShow(name: string; Age: Integer):Boolean; begin Self.mmoText.Lines.Add('用户姓名为:' + Self.theUserInfo.name); Self.mmoText.Lines.Add('用户年龄为:' + inttostr(Self.theUserInfo.Age)); Result:= True; end;
{ TUserInfo }
constructor TUserInfo.Create; begin Self.FName := 'Terry'; Self.FAge := 20; end;
procedure TUserInfo.FSetAge(theAge: Integer); begin Self.FAge := theAge; end;
end.
还有很多值得深究的,还望多多指教...
|