Наследование от другого события. Возможно ли?

[Delphi_ProGer]

Здраствуйте!
Пишу я один класс, и там реализовал события(Events).
Например, есть такое событие:

type
TOnChange = procedure(param1: string) of object;

type
TMyClass = class
private
FOnChange: TOnChange;
published
property OnChange: TOnChange read fonchange write FOnChange;
end;

И хочу сделать еще 10 таких событий, в которых будет параметр param1, но кроме способа, как писать в каждом событии этот параметр, я не вижу.
Вопрос такой: возможно ли как-то унаследовать событие от другого события? Но добавить к новому событию новые параметры.

[Alex2009]

Суть я думаю поймешь

type

  IMathHelper = interface
    {...}
  end;

  TMathHelper = class(TInterfacedObject,IMathHelper)
   private
     {...}
   end;

[Аватар]

А так, передавая в KindEvent некий тип события, один обработчик с анализом типа

type
TOnChange = procedure(param1: string; KindEvent: TKindEvent) of object;

[evg_m]

type
TOnChange = procedure(param1: string) of object;

type

TMyClass = class
private
FOnChange, FonchnangeOne, FonChangeTwo: TOnChange;
published
property OnChange: TOnChange read fonchange write FOnChange;
property OnChangeOne: TOnchange read FonChnageOne write FonchangeOne;
property OnchnageTwo: TOnChange read FonChangeTwo write FonchangeTwo;end;

[Delphi_ProGer]

Сообщение от Аватар

А так, передавая в KindEvent некий тип события, один обработчик с анализом типа

Нет, не катит. Я OnChange для примера написал.
А конкретно щас опишу свою задачу:

  TOnGroupsGet = procedure(Succesfull: Boolean; Groups: array of tdpVKGroup; Count, GlobalCount: Word) of object;
  TOnGroupsGetById = procedure(Succesfull: Boolean; Groups: array of tdpVKGroup; Count: Word) of object;
  TOnGroupsIsMember = procedure(Succesfull: Boolean) of object;

Как видите, в каждого события есть параметр Succesfull. Вот меня интересует, можно ли как-то написать одно базовое событие с этим параметром, а потом унаследовать остальные, прибавляя к ним еще параметры(разумееться, при вызове события я буду вызывать примерно так: OnGroupsGet(True, GroupsArr, 150);
Суть такого подхода в том, что не нужно в каждом событии писать этот Succesfull.
Вот интересно, можно ли такое реализовать.

[Аватар]

Интересный подход. С одной стороны параметр в процедуру передать, а с другой стороны его не должно быть в декларации процедуры. Не вижу способа это реализовать

[Delphi_ProGer]

Сообщение от Аватар

Интересный подход. С одной стороны параметр в процедуру передать, а с другой стороны его не должно быть в декларации процедуры. Не вижу способа это реализовать

А жаль...)

P.S.
Всем спасибо.

[phomm]

Параметр-объект и всё.

TEvent = class
Success: Boolean;
constructor Create(Asuccess: Boolean);
end;
T1stEvent = class(TEvent)
blah: integer;
constructor Create(Asuccess: Boolean; ablah: integer);
end;
T2ndEvent = class(TEvent)
blin: string;
constructor Create(Asuccess: Boolean; ablin: string);
end;

TEvtHandler = procedure(Evt: TEvent) of object;

Tmycoolstuff = class
Event: TEvent;
EvtHandler: TEvtHandler;
procedure Run();
end;
...
procedure Tmycoolstuff.Run();
begin
if assigned(Event) and Assigned(EvtHandler) then
  EvtHandler(Event);
end;
...
procedure tform1.onevt(Event: TEvent);
begin
if Event.Success then showmessage('Success');
if Event is T2ndEvent then
showmessage(T2ndEvent(Event).blin);
end;
procedure tform1.button1click(sender: tobject);
var
cs: TMycoolstuff;
begin
cs := TMycoolstuff.Create();
cs.Event := TEvent.Create(true);
cs.Evthandler := onevt;
cs.run();
cs.Event.Free();
cs.Event := t2ndEvent.Create(true, 'fun');
cs.run();
cs.Event.Free();
cs.Free();
end;

Набрано тут. Сам подобный подход использую иногда.