Написание собственных событий для компонента

← →
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.

Написание собственных событий для компонента Найти похожие ветки