Главная страница
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.03 c
1-81632
Buffoon
2003-08-12 18:35
2003.08.25
Рисование на Canve


1-81676
HardClubber
2003-08-11 17:51
2003.08.25
Активность визуальных компонентов


3-81571
abc
2003-07-30 15:15
2003.08.25
TDataSetProvider+TClientDataSet не удаётся установить связь


1-81807
AlexTregubov
2003-08-15 11:36
2003.08.25
Окно со списком файлов и директорий


4-82003
Alexander666
2003-06-18 22:06
2003.08.25
Вопрос по работе с мышью