Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.01.22;
Скачать: CL | DM;

Вниз

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

 
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]

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


 
TStas ©   (2006-01-04 21:06) [5]

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


 
Virgo_Style ©   (2006-01-04 21:33) [6]

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



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

Текущий архив: 2006.01.22;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.026 c
5-1122534983
Fedja2003
2005-07-28 11:16
2006.01.22
Редактор компонентов


2-1136187898
Khim
2006-01-02 10:44
2006.01.22
Как можно вставить свою иконку в MessageBox, подробнее


2-1136483524
DimDim
2006-01-05 20:52
2006.01.22
А чтоб вычисляемые поля в запрос попадали???


2-1136421556
ArtemESC
2006-01-05 03:39
2006.01.22
HIcon


2-1136286264
Стелс
2006-01-03 14:04
2006.01.22
Помогите!!!!!!!!!!!!!