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

Содержание материала

Страница 3 из 3

Объявите базовый класс формы с объявлениями абстрактных функций для каждой функции, которую вы хотите вызывать из вашего toolbar. Затем наследуйте каждую вашу форму от базового класса формы и создайте определения этих функций.

Пример: (Здесь может встретиться пара синтаксических ошибок - я не компилил это)

Code:

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;

Новые статьи

Функции для выделения, перераспределения и освобождения памяти

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