![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как обьявить событие при создании компоненты [D6, WinXP]
Oleg_K © (2005-02-28 09:12:00)Имеется модуль Unit (uOperation без формы),
ругается на то, что:
Incompatible types: 'method pointer and regular procedure'
что мне сделать? обьявить тип? как?
{это пример, но суть та}
procedure Start(I: Integer);
procedure Click;
begin
Beep;
end;
var
Timer: TTimer;
begin
Timer:=TTimer.Create(nil);
Timer.Interval:=I;
Timer.OnTimer:=Click;
end;
begin...end (2005-02-28 11:43:00) [1]> Shirson © (28.02.05 11:36) [2]
procedure MyClass.Click(Sender: TObject)
Т.е. процедура должна быть методом какого-нибудь объекта. Или методом класса.
Shirson (2005-02-28 11:36:00) [2]
procedure Click (sender:TObject);
И сделать процедуру не локальной.
MBo (2005-02-28 09:14:00) [3]http://www.delphikingdom.ru/asp/viewitem.asp?catalogid=342