Форум: "Основная";
Текущий архив: 2004.07.25;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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;

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

---

← →
ghg ©   (2004-07-12 19:40) [3]

>Семен Сорокин ©   (12.07.04 19:36) [2]
ага понятно примерно этого и хотел
спасибо

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.07.25;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.033 c