Delphi回調函數及其使用
1 回調函數的概述
回調函數是這樣一種機制：調用者在初始化一個對象（這里的對象是泛指，包括OOP中的對象、全局函數等）時，將一些參數傳遞給對象，同時將一個調用者可以訪問的函數地址傳遞給該對象。這個函數就是調用者和被調用者之間的一種通知約定，當約定的事件發生時，被調用者（一般會包含一個工作線程）就會按照回調函數地址調用該函數。
這種方式，調用者在一個線程，被調用者在另一個線程。
消息：
消息也可以看作是某種形式的回調，因為消息也是在初始化時由調用者向被調用者傳遞一個句柄和一個消息編號，在約定的事件發生時被調用者向調用者發送消息。
這種方式，調用者在主線程中，被調用者在主線程或者工作線程中。
Delphi事件模型：
在Delphi的VCL中有很多可視化組件都是使用事件模型，例如TForm的OnCreate事件，其原理是：在設計時指定事件函數，在運行時事件觸發，則會調用在設計時指定的事件函數。
在機制上，Delphi事件模型與回調是一樣的。但具體形式有些區別，純的回調函數是全局函數的形式，而Delphi事件是對象方法的形式，即可以定義如下回調函數類型
type
TCallBackFunc = procedure (pData: Pointer) of object;
2 回調函數的使用說明
回調函數主要在兩個場合使用，第一個是某些Windows的API要求用回調函數作為其參數地址，另一種是用戶在某種特定的場合定義的某個函數需要使用回調函數作為其參數地址，對於用戶的定義的函數來說，一般是當調用動態連接庫中的函數時使用。
對於使用一個回調函數主要有以下幾個步驟：
1、定義一個回調函數類型，跟一般的函數過程的定義並沒有什么區別，但其定義必須根據需要滿足回調函數的函數要求，唯一的區別在於在函數或過程的定義后面必須聲明其為windows標准調用；
例：
type
THDFunction= function(I:integer;s:string):integer; stdcall;
對於過程的聲明：
type
THDProcedure=procedure(s:string); stdcall;
2、 然后根據此原形定義一個相應的函數或過程，對於這個函數或過程來說名字沒有什么要求，對函數其參數的類型和返回值的類型必須和定義的回調函數類型完全一致，對於過程來說，只需要其參數類型一樣就可以了。
例：根據上面的函數和過程的原形定義一個相應的函數和一個相應的過程。
函數原形定義：
Function HdFunExample(k:integer,sExam:string):integer; stdcall;
過程定義：
procedure HdProExample(sExam:string);stdcall;
3、 在程序中實現此回調函數或着過程；
Function HdFunExample(k:integer,sExam:string):integer; stdcall;
Begin
End;
procedure HdProExample(sExam:string);stdcall;
begin
end;
4、 調用過程；
回調函數一般作為系統的某個函數的入口地址；
根據調用函數的原形：
假設有如下調用函數：
function DyHdFunExample(HdFun:THDFunction;I:integer):boolean;
注：
在調用函數中通過對函數指針的處理可以直接調用回調函數（即調用函數中的那個是回調函數類型的參數，直接操作它），使回調函數履行一定的操作。即在調用函數中實現回調函數的功能。
調用：
var
I:integer;
begin
I:=DyHdFunExample(@HdFunExample,i);
//…….
End;
3 舉例說明
示例程序在H:/ 回調函數示例/ 目錄下面。
回調函數的使用主要在於Windows原有的API函數，但對於用戶的自定義的調用函數一般在於動態連接庫中。常規的同一個工程下面一般不需要使用回調函數。(個人認為).。
功能大體描述：Form1中有一個Edit和一個Button,當點擊BUTTON時彈出FORM2，FORM2中也有一個EDIT和一個BUTTON，當點擊FORM2中的BUTTON時，將FORM2中的EDIT的TEXT屬性賦值給FORM1中的EDIT的TEXT。
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,StdCtrls;
type
TForm1 = class(TForm)
{主窗體中放一個Edit和一個Button}
Edit1: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
{定義一個用於回調的過程}
procedure test(str:string);
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{引用unit2}
uses unit2;
{$R *.dfm}
{回調過程的實現部分}
procedure TForm1.test(str: string);
begin
{將str值副給Edit1}
Edit1.Text:=str;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
{調用Unit2的接口方法}
CallUnit2(test);
end;
end.
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
{定義一個回調函數類型}
TFuncCallBack=procedure(str:string) of object;
TForm2 = class(TForm)
{Form2中也有一個Edit和一個Button}
Edit1: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
{定義一個回調函數類型的變量}
aFuncCallBack:TFuncCallBack;
public
{ Public declarations }
end;
{提供給Unit1調用的接口方法,注意里面的參數的類型}
procedure CallUnit2(FuncCallBack:TFuncCallBack);
var
Form2: TForm2;
implementation
{$R *.dfm}
{接口方法的實現部分}
procedure CallUnit2(FuncCallBack:TFuncCallBack);
begin
Application.CreateForm(TForm2,Form2);
{將參數賦值給FuncCallBack}
Form2.aFuncCallBack:=FuncCallBack;
Form2.ShowModal;
end;
procedure TForm2.Button1Click(Sender: TObject);
begin
{當點擊Form2的按鈕時將Form2中的Edit的值傳遞給了Form1中的Edit}
{是不是很神奇？我並沒有uses Unit1,但卻改變了Form1中Edit的Text屬性}
aFuncCallBack(Edit1.Text);
ModalResult:=mrOk;
end;
end.
http://blog.csdn.net/tercel99/article/details/4624686
http://blog.csdn.net/tercel99/article/details/4622207