|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Как добавить событие OnChange свойству?
Всем доброго времени суток.
Кратко опишу ситуацию. Есть объект примерно такого вида: Код:
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 . Заранее благодарю за ответы... |
#2
|
||||
|
||||
Цитата:
Код:
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; |
Этот пользователь сказал Спасибо poli-smen за это полезное сообщение: | ||
Dagmanor (07.05.2014)
|
#3
|
|||
|
|||
Спасибо большое
|