Проблемки в создании компонента((

[Ti_pain)]

Ребятишки помогите пожалуйста)) Создаю свй компонент и возникает непонятная проблемка(( вот кусочек текста

procedure TmaskEditEvo.SetProvDate(Value : boolean);
begin
 FProvDate:=Value;
 if fProvDate then TmaskEditEvo.editmask:='99/99/99;1;'
              else TmaskEditEvo.editmask:='';
end;

ну если тру тогда пишем вот такую масочку) только у меня выдает ошибочку что "editmask" необявлена(( так зачем ее обьявлять если ето свойство предка??

[Stilet]

TmaskEditEvo.editmask

Правильно пишет. Ты же к классу обращаешся а не к объекту
Пиши так:

 if fProvDate then Self.editmask:='99/99/99;1;'
              else Self.editmask:='';

[Ti_pain)]

Оооооооо спасибки большое)) щас проверим))

Ура получилось спасибо большое)) а можна ище один маленький вопросик))Какое события происходит если с компонента уберается фокус ввода?))

[Stilet]

События может и не быть, перехватывай сообщение WM_KILLFOCUS
Пример:

 TM=class(TMaskEdit)
  private
    FDate: Boolean;
    procedure SetDate(const Value: Boolean);
    Procedure kf(var w:TWMKillFocus); message WM_KILLFOCUS;
  published
  Property Date:Boolean read FDate write SetDate;
 end;
...
procedure TM.kf(var w: TWMKillFocus);
begin
 // Тут типа делаем если фокус соскочил
end;

[Ti_pain)]

Ммммммм мда мне ище расти и расти)) будм думать))

Блин думал наконецто все ок(

public
    { Public declarations }
    constructor OnExit (AOwner: TComponent ); override;
............
constructor TmaskEditEvo.OnExit(Owner: TComponent);
begin
Inherited OnExit(AOwner);
if FProvDate then Self.Text:='получилось';
end;

.......................
пишет типа метод "OnExit" не может быть загружен в етом класе??
(Method 'OnExit' not found in base class)

[Пепел Феникса]

OnExit это св-во
а не коструктор.
вам нужно переопределить событие возникающее при потере фокуса компонентом?

[Ti_pain)]

Да да думал должно так получиться но шото...

[Пепел Феникса]

если вам нужно переопределить событие при потере фокуса то
обьявите в секции protected

    procedure DoExit; override;

[Ti_pain)]

Спасибки ета проблемка уже ришена))

Почему я не могу вывести например ShowMassage? либо другой диалог? каждый раз пишет что имя диалога неиндифицирован.((

[Stilet]

Почему я не могу вывести например ShowMassage?

А в uses модуль Dialogs прописан?