| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

дополнительные параметры в стандартных обработчиках событий [D7, Win2k, WinXP]

ghg ©   (2004-07-12 19:23:00) 

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

Хочу сделать вот так:

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

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

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

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

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

begin

{ ... }

end;

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

---

ghg   (2004-07-12 19:40:00) [1]

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

---

Семен Сорокин   (2004-07-12 19:36:00) [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;

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

---

ASMiD   (2004-07-12 19:32:00) [3]

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

---

Наверх