Не получается вызвать процедуру!

← →
frEE)styler (2006-01-03 18:11) [0]

вот такая процедура:

procedure TForm1.XPButton11MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
point:Tpoint;
a: array of tmenuitem;
i:integer;
begin
getcursorpos(point);
setlength(a,entries);
popupmenu2.Items.Clear;
for i:=0 to entries-1 do
begin
a[i]:=tmenuitem.Create(self);
a[i].Caption:=entry[i+1].szEntryName;
a[i].OnClick:= myclick(sender,i);
popupmenu2.Items.Add(a[i]);
end;
popupmenu2.Popup(point.x,point.y);
end;
и процедура MyCkick

procedure TForm1.MyClick(Sender: TObject; i:integer);
begin
........
end;
подскажите как мне передать параметр в процедуру Myclick??
так как я делаю не получается...вот такая ошибка:
Incompatible types: "TNotifyEvent" and "procedure, untyped pointer or untyped parameter"

← →
Leonid Troyanovsky © (2006-01-03 18:28) [1]

> frEE)styler (03.01.06 18:11)

> подскажите как мне передать параметр в процедуру Myclick?

http://groups.google.com/group/fido7.ru.delphi.chainik/msg/61a25df4f567f5e5

--
Regards, LVT.

← →
Гаврила © (2006-01-04 02:10) [2]

Так и пиши
MyClick(nil, 0)

← →
Гаврила © (2006-01-04 02:11) [3]

то есть ты так не пиши
ты по другому пиши ))))
параметр второй убери для начала

← →
Гаврила © (2006-01-04 02:16) [4]

не, так тоже не пиши

Компилятор не придирается, а по делу говорит.
type TNotifyEvent procedure(Sender: TObject); //Один параметр TObject и принадлежит объекту
MyClick(Sender: TObject; i:integer); //Два параметра, объекту тоже принадлежит/
Типы у них разные, а свойство OnClick: TNotifyEvent
Чтобы решить проблему, надо убрать у процедуры второй параметр.

Скорее всего по ссылке в [1] написано именно это, но все же - можно присвоить a[i].Tag, а потом в MyClick смотреть (sender as TComponent).Tag

Не получается вызвать процедуру! Найти похожие ветки