Форум: "Основная";
Текущий архив: 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.046 c
