delphi 回调函数

       今天在DELPHI上随便编写了个回调函数的例子，怕以后忘了，赶紧给它给记下来，呵呵。

觉的好简单，什么都没有，只是在同一个单元内，利用了DELPHI的多线程调用回调函数，高手别见笑哈！下次肯

定要多加点东西完善滴，这次只是熟悉一下实现回调的整个过程。

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    ListBox1: TListBox;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  type PFCALLBACK = function(Param1:integer;Param2:integer):integer;stdcall;
 // 定义回调函数的类型
var
  Form1: TForm1;
  gCallBack:PFCALLBACK;
  function CBFunc(Param1:integer;Param2:integer):integer;stdcall;
implementation
//回调函数需要定义为全局
{$R *.dfm}
///实现回调函数的功能<