[Dagmanor]

Всем доброго времени суток.
Кратко опишу ситуацию. Есть объект примерно такого вида:

Код:

type TCalendarGrid = class(TMGrid)
    FConnection: TFBConnectionInterface;
    FDBPath:String;
     
   public

     EventMass : array[0..11] of TMonthEventArray;
     constructor Create(AOwner: TComponent)
     property DBPath:String read  FDBPath write  FDBPath; 
end;

Как можно сделать событие OnChange для DBPath. (как у TEdit)
Используется Delphi 7 .

Заранее благодарю за ответы...

[poli-smen]

Сообщение от Dagmanor

Код:

type TCalendarGrid = class(TMGrid)
    FConnection: TFBConnectionInterface;
    FDBPath:String;
     
   public

     EventMass : array[0..11] of TMonthEventArray;
     constructor Create(AOwner: TComponent)
     property DBPath:String read  FDBPath write  FDBPath; 
end;

Как можно сделать событие OnChange для DBPath. (как у TEdit)
Используется Delphi 7 .

Примерно так:

Код:

type
  TCalendarGrid = class(TMGrid)
  private
    FDBPath: String;
    FOnChange: TNotifyEvent;
    procedure SetDBPath(const Value: String);
  public
    property DBPath: String read FDBPath write SetDBPath;
    property OnChange: TNotifyEvent read FOnChange write FOnChange;
  end;

implementation

{ TCalendarGrid }

procedure TCalendarGrid.SetDBPath(const Value: String);
begin
  if FDBPath <> Value then
  begin
    FDBPath := Value;
    if Assigned(OnChange) then OnChange(Self);
  end;
end;

[Dagmanor]

Спасибо большое