Форум: "Основная";
Текущий архив: 2003.08.25;
Скачать: [xml.tar.bz2];
Вниз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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.008 c