дополнительные параметры в стандартных обработчиках событий

← →
ghg © (2004-07-12 19:23) [0]

Добрый день! Возможно вопрос простой, но ...

Хочу сделать вот так:
procedure Tform_Information.FormShow(Sender: TObject; alfa, depth : single); то есть вставить дополнитлеьные параметры в стандартный обработчик,

и соответственно вызывать все это примерно так: form_Information.show(alfa, depth);

Посмотрел в FAQ, там следующее:

У этой процедуры должен быть еще один дополнительный параметр, например:

procedure MyEventHandler(PseudoSelf : TObject; Sender : TObject);

begin

{ ... }

end;

но как то не очень понял. Можно подробнее и с кодом?

← →
ASMiD (2004-07-12 19:32) [1]

Но если ты сам собрался вызывать этот обработчик, то из-за чего сыр-бор и откуда Delphi будет брать alpha и depth

← →
Семен Сорокин © (2004-07-12 19:36) [2]

> ghg © (12.07.04 19:23)

в стандартный обработчик Вы врядли что вставите, вы можете добавить обработчик, например так:

type TShowExEvent = procedure (Sender: TObject; Alpha, Depth: single) of object; TMyForm = class(TForm) private FAlpha: single; FDepth: single; FOnShowEx: TShowExEvent; protected procedure DoShow; override; procedure DoShowEx; virtual; published property FOnShowEx: TShowExEvent read FOnShowEx write FOnShowEx; end; procedure TMyForm.DoShow; begin inherited; DoShowEx; end; procedure TMyForm.DoShowEx; begin if Assigned(FOnShowEx) then FOnShowEx(self, FAlpha, FDepth) end;

набирал вручную, могут быть ошибки :)

дополнительные параметры в стандартных обработчиках событий Найти похожие ветки