《GOF设计模式》—命令（COMMAND）—Delphi源码示例：参数化机制（回调函数）

示例：回调函数
说明：
       你可用过程语言中的回调（callback）函数表达这种参数化机制。所谓回调函数是指函数先在某处注册，而它将在稍后某个需要的时候被调用。
代码：
unit uCallback;

interface

type
    TAction1 = procedure();

var
    FShowAction1: TAction1;

implementation

uses
    Dialogs;

procedure Show1();
begin
    ShowMessage('123');
end;

initialization
    FShowAction1 := Show1;

end.

procedure TForm2.Button1Click(Sender: TObject);
begin
    FShowAction1;
end;