22.10.2006, 17:56
общий
это ответ
Здравствуйте, Томша Павел!
1) Скорее всего так -
Type
TMyEvent = procedure(Sender:TObject; var value:Integer) of Object;;
property onVarChange:TMyEvent;
property variable: integer read Fvariable write SetVariable;
procedure TMyClass.Setvariable(Value: integer);
begin
if Assigned (FonVarChange) Then FonVarChange(Self, value); Если событие активно вызываем до изменения.
FVariable:=value;
end;
2) Можно, но это достаточно долго описывать, поэтому отошлю к книге "Делфи глазами Хаккера" М.Фленова. Глава 3.8