Главная страница
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.022 c
7-81968
Levan Varshanidze
2003-05-21 09:00
2003.08.25
Ищу материали по DATEKS MP500T


1-81654
Yuliya
2003-08-12 10:22
2003.08.25
директория


1-81659
Nucl
2003-08-11 15:29
2003.08.25
Дети ноды в дереве


4-82004
Mortal
2003-06-22 18:10
2003.08.25
Отловить PopUp


3-81577
николай
2003-07-30 12:32
2003.08.25
как сделать кнопку