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

[Ti_pain)]

Хм чет не подумал что все поля относяться к класу(( блин та шо такое........(( а мож сказатьо пор какие исходники говорил?

Труба....

type 
TOnlyCase=set of (Numbers,Letters);
 TmaskEditEvo = class(TMaskEdit)
 ......................................... 
  published
    property OnlyCase:TOnlyCase read FOnlyCase; write SetOnlyCase;
 ............................................

[Error] maskEditEvo.pas(32): Field definition not allowed after methods or properties
[Error] maskEditEvo.pas(32): ',' or ':' expected but ';' found
............................
??
Даже если у меня шото и получиться с етим как потом узнать перед каким полем галочку поставили?))

Уже и в исходниках стандартных Компонентов смотрел вроди все также(((

Подскажите пожалуйста)) уже незнаю че делать((

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

первая ошибка в коде не показана у вас.
она состоит в том поля нужно объявлять до методов и св-в.

а 2)

published
property OnlyCase:TOnlyCase read FOnlyCase write SetOnlyCase;

[Ti_pain)]

Шото я так и не понял что надо сделать(((

type
  TOnlyCase=set of (Numbers,Letters);
  TmaskEditEvo = class(TMaskEdit)
  private
 { Private declarations }
      FOnlyCase:TOnlyCase;
    protected
 { Protected declarations }
 
    procedure SetOnlyCase(Value : boolean);
    procedure KeyPress (var Key : char);  override;
  public
    { Public declarations }

  published
    { Published declarations }
    property OnlyCase:TOnlyCase read FOnlyCase; write SetOnlyCase;

.............

Вроди поле обявлено(

[raxp]

property OnlyCase:TOnlyCase read FOnlyCase; write SetOnlyCase;

вы опять повторяете ту же ошибку... поясню: внешнее свойство компонента OnlyCase имеет тип TOnlyCase и заносится из FOnlyCase, в тоже время оно двунаправленное и может устанавливаться пользователем, при этом оно записывается в SetOnlyCase, поэтому ; лишняя (если же вы хотите чтоб оно было только на чтение, тогда пишем просто - property OnlyCase:TOnlyCase read FOnlyCase... что в принципе имеет смысл только для свойств типа- "о программе")

...кроме того вы можете регулировать положение переключателя, например так:

property OnlyCase:TOnlyCase read FOnlyCase write SetOnlyCase default Letters;

[Ti_pain)]

Тепер выдает((
Я так и не понял как потом узнать над каким полем пользоваел поставил галочку??

[Error] maskEditEvo.pas(28): Incompatible types
[Error] maskEditEvo.pas(19): Unsatisfied forward or external declaration: 'TmaskEditEvo.SetOnlyCase'

[raxp]

Я так и не понял как потом узнать над каким полем пользоваел поставил галочку

при этом оно записывается в SetOnlyCase

исправьте...

procedure SetOnlyCase(const Value : TOnlyCase);

потом в теле компонента после implementation

procedure TmaskEditEvo.SetOnlyCase(const Value: TOnlyCase);
begin
 FOnlyCase:= value;

 if FOnlyCase= Numbers then  // ваше действие
  else // ваши действия 
end;
...

[Ti_pain)]

Блин я дико извеняюсь) спасибо большое всем кто помагает мне))
........................

unit maskEditEvo;

interface

uses
  SysUtils, Classes, Controls, StdCtrls, Mask, Dialogs;

type
  TOnlyCase=set of (Numbers,Letters);
  TmaskEditEvo = class(TMaskEdit)
  private
 { Private declarations }
    FOnlyCase:TOnlyCase;
    protected
 { Protected declarations }
    procedure SetOnlyCase(Value : TOnlyCase);
    public
    { Public declarations }
    published
    { Published declarations }
    property OnlyCase:TOnlyCase read FOnlyCase write SetOnlyCase;
  end;

procedure Register;
implementation
procedure SetonlyCase(Value : TOnlyCase);
begin
  FOnlyCase:=Value;
 if  FOnlyCase= Numbers then Self.Text:='Вышло';
end;
procedure Register;
begin
  RegisterComponents('Standard', [TmaskEditEvo]);
end;
end.

Вроди уже сдела правельно а оно мне
........................
[Error] maskEditEvo.pas(30): Undeclared identifier: 'FOnlyCase'
[Error] maskEditEvo.pas(31): Undeclared identifier: 'Self'
[Error] maskEditEvo.pas(31): Missing operator or semicolon
[Error] maskEditEvo.pas(16): Unsatisfied forward or external declaration: 'TmaskEditEvo.SetOnlyCase'
[Fatal Error] dclusr.dpk(35): Could not compile used unit 'My\maskEditEvo.pas'

Пожалуйста помогите))

[Stilet]

Ti_pain)

Хитрость создания компонента заключается не только в том что ты его описал, а еще и в том что нужно определить методы.
Это тто что ты набрал - описание мотодов, но не их реализация, а она нужна, даже есди она пустая будет все равно: Описал метод, свойство - реализуй
Вот смотри:

unit MaskEdit1;

interface

uses
  SysUtils, Classes, Controls, StdCtrls, Mask;

type         TOnlyCase=set of (Numbers,Letters);

  TOptions=set of (First,Second);
  TMaskEdit1 = class(TMaskEdit)
  private
    FOptions: TOptions;    FOnlyCase:TOnlyCase;

    { Private declarations }
  protected
    procedure SetOptions(const Value: TOptions);
     procedure SetOnlyCase(Value : TOnlyCase);
 // Ты же его описал!
    { Protected declarations }
  public
    { Public declarations }
  published
   Property Options:TOptions read FOptions write SetOptions;
      property OnlyCase:TOnlyCase read FOnlyCase write SetOnlyCase;
 // Терь реализуй (см. ниже)
    { Published declarations }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Samples', [TMaskEdit1]);
end;

{ TMaskEdit1 }

procedure TMaskEdit1.SetOnlyCase(Value: TOnlyCase);
begin
 // Вот это обязано быть если ты в классе его описал
end;

procedure TMaskEdit1.SetOptions(const Value: TOptions);
begin
  FOptions := Value;
end;

end.

Поставь курсор на какой нить метод в классе и нажми CTRL+SHIFT+C -
Делфи услужливо тебе создаст обработчики.

Ферштеен?

А кстаа поясню где ты провтыкал у меня методы привязаны к классу:

procedure TMaskEdit1.SetOptions(const Value: TOptions);

А у тебя нет:

procedure SetonlyCase(Value : TOnlyCase);

А нужно указыватьим к какому класу они пренадлежат.

[Ti_pain)]

Спасибо вам большое)) извенити сам понемаю что уже надоел.....))

[Ti_pain)]

Можна нескромненький вопросик?) могу я переназначит свойство:
property IsMasked: Boolean;??
ну как KeyPress?? или такого делать нельзя?