Скачать: CL | DM;

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

← →
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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.018 c