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

[Ti_pain)]

Да прописовал все равно выдает ошибку((
[Error] maskEditEvo.pas(64): Undeclared identifier: 'showMassage'

[Stilet]

Код в студию )

[Ti_pain)]

uses
  SysUtils, Classes, Controls, StdCtrls, Mask, Dialogs;
.............
protected
 { Protected declarations }
     procedure SetProvDate(Value : boolean);
     procedure Doexit;  override;
.................  
published
    { Published declarations }
  property ProvDate: boolean read FProvDate write SetProvDate default false;
  end;

procedure Register;

implementation

.................
procedure TmaskEditEvo.Doexit;
...............
 if m>12 then   Self.Color:=250 {Вот сдесь хотелось что бы не цвет        
                                           меняло а сообщения,ShowMassage('Error')}
  ............................

procedure Register;
begin
  RegisterComponents('Standard', [TmaskEditEvo]);
end;

end.

Если Ошибка не елементарная то ладно, просто буду оставлять фокус ввода пока не произойдет правеьный ввод))

[Stilet]

if m>12 then begin Self.Color:=250; ShowMessage('Error');end
else

Увидел?

[Ti_pain)]

Ха-ха твою дивизую списую с конспекта ноль внемания.......ну хоть настрония поднялось)) уже не знаю как благодорить))

помогите пожалуйсте с двома впринцепе для меня очень не понятными
вопрсами:
1) впринцепе я ж могу добавить к своему компоненту стандартный Label, как у LabeledEdit, ток не второпаю как ето сделать( подскажить первые шаги а дальше уже пойдет...
2) Получается все что я писал например
published
{ Published declarations }
property ProvDate: boolean read FProvDate write SetProvDate default false;

в инспекторе обектов имеет вид 1 "поля" , а как сделать что бы имел вид ВКЛАДКИ(слева '+' нажимаеш и разварачуется ище поля), а то на парах етого не прошли ушли на каранти((

[Stilet]

Смотри:

 
type
  TOptions=set of (First,Second);
...
published
   Property Options:TOptions read FOptions write SetOptions;

Ясен ход событий?

[Ti_pain)]

Ага начинаю понемношку понемать)) Спасибки щас более дедально начну разберать))

[Stilet]

Ага начинаю понемношку понемать))

Для пущего понимания очень рекомендуется изучать исходники поставляемые с Делфи - в простонародии "курить генофонд".
Так что "Пилите, Шура, пилите - она золотая".

[Ti_pain)]

шото я чучуть не понял))


я как токо обьявляю сразу плюёться и чето ему не нравится((
type
TmaskEditEvo = class(TMaskEdit);
TOptions=set of (First,Second);
private
{ Private declarations }
FOnlyBinary : boolean;
первые ошибки:
Error] maskEditEvo.pas(13): '=' expected but identifier 'FOnlyBinary' found
[Error] maskEditEvo.pas(13): ';' expected but ':' found

[Stilet]

TmaskEditEvo = class(TMaskEdit);
TOptions=set of (First,Second);

А че ты это в класс пихаешь?

// За класс выноси - это же определение типа
TOptions=set of (First,Second);

TmaskEditEvo = class(TMaskEdit);