Форум: "Основная";
Текущий архив: 2004.02.06;
Скачать: [xml.tar.bz2];
ВнизНаписание собственных событий для компонента Найти похожие ветки
← →
HES (2004-01-22 17:14) [0]Люди, объясните пожалуйста как создать собственное событие? Есть свой компонент типа "банк". Он используется в основной программе. Так вот "банк" должен сгенерить событие "деньги кончились". Как примерно можно написать такое событие? Просто необходимо исключить проверку счета основной программой, поэтому пришлось прибегнуть к событиям, а работать я с ними не умею... Помогите плиз!
← →
Юрий Зотов (2004-01-22 17:25) [1]type
TNoMoneyEvent = procedure(Sender: TObject; ...) of object;
TBank = class(...)
private
...
FOnNoMoney: TNoMoneyEvent;
protected
...
procedure NoMoney; dynamic;
public
...
published
...
property OnNoMoney: TNoMoneyEvent
read FOnNoMoney write FOnNoMoney;
end;
procedure TBank.NoMoney;
begin
...
if Assigned(FOnNoMoney) then FOnNoMoney(Self, ...);
...
end;
И теперь в нужных местах кода компонента просто вызываете его метод NoMoney.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.02.06;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.027 c