Указатель на функцию

=== Указатель на функцию ===
Это то, что я нашел при создании простой машины состояний: 
Ниже приведен простой пример для Borland Delphi, использующий указатели функций для управления программным потоком. Просто создайте простую форму с единственной кнопкой и скопируйте код из Unit1 во вновь созданный модуль. Добавьте к проекту Unit2 и скомпилируйте проект. Дайте мне знать, если у вас возникнут какие-либо проблемы.
interface
uses
 SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
 Forms, Dialogs, StdCtrls;
type
 TForm1 = class(TForm)
 Button1: TButton;
 procedure Button1Click(Sender: TObject);
 private
 { Private declarations }
 public
 { Public declarations }
 end;
var
 Form1: TForm1;
 CurrProc: LongInt;
 MyVal: LongInt;
implementation
uses Unit2;
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var
 NewProc: LongInt;
 MyString: string;
begin
 CurrProc := 2; { начальная точка в таблице методов }
 MyVal := 0; { вспомогательная переменная }
 NewProc := 0;
 { возвращаемое значение для следующего индекса в таблице методов }
 while CurrProc < 6 do
 begin
 { выполняем текущий индекс в таблице методов и получаем следующую процедуру }
 NewProc := ProcTable[CurrProc](MyVal);
 { просто показываем значения NewProc и CurrProc }
 FmtStr(MyString, 'NewProc [%d] CurrProc [%d]', [NewProc, CurrProc]);
 MessageDlg(MyString, mtInformation, [mbOK], 0);
 { присваиваем текущую процедуру возвращаемой процедуре }
 CurrProc := NewProc;
 end;
end;
end.
{ Это простой пример, определяющий массив указателей на функции }
interface
type
 { определяем Procs как функцию }
 Procs = function(var ProcNum: LongInt): LongInt;
var
 { объявляем массив указателей на функции }
 ProcTable: array[1..5] of Procs;
 { определения интерфейсов функций }
function Proc1(var MyVal: LongInt): LongInt; far;
function Proc2(var MyVal: LongInt): LongInt; far;
function Proc3(var MyVal: LongInt): LongInt; far;
function Proc4(var MyVal: LongInt): LongInt; far;
function Proc5(var MyVal: LongInt): LongInt; far;
implementation
uses Dialogs;
function Proc1(var MyVal: LongInt): LongInt;
begin
 MessageDlg('Процедура 1', mtInformation, [mbOK], 0);
 Proc1 := 6;
end;
function Proc2(var MyVal: LongInt): LongInt;
begin
 MessageDlg('Процедура 2', mtInformation, [mbOK], 0);
 Proc2 := 3;
end;
function Proc3(var MyVal: LongInt): LongInt;
begin
 MessageDlg('Процедура 3', mtInformation, [mbOK], 0);
 Proc3 := 4;
end;
function Proc4(var MyVal: LongInt): LongInt;
begin
 MessageDlg('Процедура 4', mtInformation, [mbOK], 0);
 Proc4 := 5;
end;
function Proc5(var MyVal: LongInt): LongInt;
begin
 MessageDlg('Процедура 5', mtInformation, [mbOK], 0);
 Proc5 := 1;
end;
initialization
 { инициализируем содержание массива указателей на функции }
 @ProcTable[1] := @Proc1;
 @ProcTable[2] := @Proc2;
 @ProcTable[3] := @Proc3;
 @ProcTable[4] := @Proc4;
 @ProcTable[5] := @Proc5;
end.
Я думаю это можно сделать приблизительно так: объявите в каждой форме процедуры, обрабатывающие нажатие кнопки, типа процедуры CutButtonPressed(Sender:TObject) of Object; затем просто назначьте события кнопок OnClick этим процедурам при наступлении событий форм OnActivate. Этот способ соответствует концепции ОО-программирования, но если вам не нравится это, то вы все еще можете воспользоваться указателями функций, которая предоставляет Delphi. 
Объявите базовый класс формы с объявлениями абстрактных функций для каждой функции, которую вы хотите вызывать из вашего toolbar. Затем наследуйте каждую вашу форму от базового класса формы и создайте определения этих функций. 
Пример: (Здесь может встретиться пара синтаксических ошибок - я не компилил это)
type
 TBaseForm = class(TForm)
 public
 procedure Method1; virtual; abstract;
 end;
type
 TDerivedForm1 = class(TBaseForm)
 public
 procedure Method1; override;
 end;
 TDerivedForm2 = class(TBaseForm)
 public
 procedure Method1; override;
 end;
procedure TDerivedForm1.Method1;
begin
 // ....
end;
procedure TDerivedForm2.Method1;
begin
 // ....
end;
{ Для вызова функции из вашего toolbar,
получите активную в настоящий момент форму и вызовите Method1 }
procedure OnButtonClick;
var
 AForm: TBaseForm;
begin
 AForm := ActiveForm as TBaseForm;
 AForm.Method1;
end;
Source: http://delphiworld.narod.ru
ID: 00835