Как добавить собственное событие в компонент? [D5, D6]
b6hc8yr6 © (2002-07-04 03:04:00)
Как добавить собственное событие в свой компонент? Причем
событие должно быть не встроенное (типа OnLButtonDown), а
случающееся по определенным изменениям внутри компонента (например,
если внутреняя переменная компонента принимает определенное
значение, то это событие и генерируется).
Заранее спасибо.
GenBr (2002-07-04 05:59:00) [1]
Ну например
procedure TYourComponent.SetYourVar(aVar: Integer)
begin
FVar:=aVar;
if FVar=123 then
if Assigned(YourEvent) then YourEvent
end;
Наверх 
ЧАТ |
Орешник |
|
