Передача параметра

← →
Антон1209 (2006-02-03 10:31) [0]

constructor TAuditItem.Create(AOwner: TComponent; AName, ACaption: string);
begin
inherited Create(AOwner);
Name:=AName;
Caption:=ACaption;
OnClick:=ShowAuditWindow(AOwner);
end;

procedure TAuditItem.ShowAuditWindow(Sender : TObject);

хочу передать AOwner в процедуру ShowAuditWindow возникает ошибка, не могу понять почему, помогите.

[Error] ViewSimple.pas(717): Incompatible types: "TNotifyEvent" and "procedure, untyped pointer or untyped parameter"

← →
Digitman © (2006-02-03 10:35) [1]

Не понятно, с какой стати источником события (Sender) должен быть некий заранее не известный владелец компонента TAuditItem, если он, компонент TAuditItem, как раз сам и является источником события ?

← →
Антон1209 (2006-02-03 10:43) [2]

Да понял, а как тогда мне лучше передать владельца компонента TAuditItem в процедуру ShowAuditWindow?

← →
Digitman © (2006-02-03 10:49) [3]

> Да понял

Ну где же понял-то ?!

Зачем передавать владельца , если в Sender впри вызове обработчика предназначен для указания компонента-источника (!) события (источник у тебя TAuditItem), а не компонента-владельца, коего в общем случае у компонента TAuditItem может и не быть ?

constructor TAuditItem.Create(AOwner: TComponent; AName, ACaption: string);
begin
..
OnClick:=ShowAuditWindow;
end;

И все !
И ничего выдумывать не надо !

Когда произойдет событие TAuditItem.OnClick, будет вызван метод TAuditItem.ShowAuditWindow со значением переданного параметра Sender, соответствующим ссылке на конкретный компонент TAuditItem, который "кликнули"

А ты его косвенно и так передаешь:
OnClick:=ShowAuditWindow;
...
procedure TAuditItem.ShowAuditWindow(Sender : TObject);
begin
TComponent(Sender).Owner // это и есть твой владелец

← →
Антон1209 (2006-02-03 10:57) [5]

все это и нужно было спасибо :-)

Передача параметра Найти похожие ветки