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

Вниз

TNotyfyEvent - не получается...   Найти похожие ветки 

 
Fog ©   (2003-08-13 20:44) [0]

Ести процедура:
procedure NewOnClick(Sender : TObject);
begin
//code..
end;

//programm...

procedure TForm1.FormCreate(sender : TObject);
var
nm:TMenuItem;
begin
nm := TMenuItem.Create(MainMenu1);
nm.OnClick := NewOnClick(nm);// И невыходит!
end;


Но ведь TNotyfyEvent это procedure (Sender:TObject) of object! Так и в чем проблемма?


 
Романов Р.В. ©   (2003-08-13 20:50) [1]

nm.OnClick := NewOnClick;

procedure TSomeObject.NewOnClick(Sender : TObject);
begin
//code..
end;

1. Процедура должна быть методом
2. Присваивается имя, то биш указатель на процедуру.


 
circul   (2003-08-14 02:26) [2]

procedure NewOnClick(Sender : TObject);
заменить на
procedure TForm1.NewOnClick(Sender : TObject);



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

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

Наверх




Память: 0.46 MB
Время: 0.013 c
11-81601
Romaizdurdoma
2002-12-05 22:02
2003.08.25
Куда делись хинты в КОЛе


1-81828
Miralex
2003-08-13 10:32
2003.08.25
Цвет в treeview


3-81543
stud
2003-07-30 16:29
2003.08.25
sql - запрос


1-81672
JS
2003-08-11 19:50
2003.08.25
ImageList и BitBtn


14-81930
RDA
2003-08-06 14:44
2003.08.25
Средства разработки для Oracle