TWidgetControl и self

[Аватар]

А код вашего объекта можно выложить? Хотя бы в части того, как вы Parent переопределяете.

[_-Re@l-_]

Я непереопределяю Parent, я же сказал! Мне нужно, чтобы NE.Parent было TWinControl, а не TWidgetControl, которым оно почему-то является!
Код в предыдущем посте, цитирую:

unit QNameEdit;

interface

uses
  SysUtils, Classes, QControls, QStdCtrls;

const
      RUSSIAN = 'RUSSIAN';
      ENGLISH = 'ENGLISH';

type
  NameEdit = class(TEdit)
  private
    { Private declarations }
    OnlyRussian : Boolean;
    OnlyEnglish : Boolean;
  protected
    { Protected declarations }
    procedure KeyPress(Var Key : Char);override;
  public
    { Public declarations }
    constructor Create(AOwner : TComponent);override;
    procedure SetLanguage(Lang : String);
  published
    { Published declarations }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('SocialNetwork', [NameEdit]);
end;

constructor NameEdit.Create(AOwner : TComponent);
begin
      Inherited Create(AOwner);
      OnlyRussian:=True;
end;

procedure NameEdit.KeyPress(Var Key : Char);
begin
      If OnlyRussian Then
      Begin
            If not (UpCase(Key) in ['À'..'ß']) Then
            Begin
                  Key:=#0;
            End;
      End;
      If OnlyEnglish Then
      Begin
            If not (UpCase(Key) in ['A'..'Z']) Then
            Begin
                  Key:=#0;
            End;
      End;
      Inherited KeyPress(Key);
end;

procedure NameEdit.SetLanguage(Lang : String);
begin
      If AnsiUpperCase(Lang) = RUSSIAN Then
      Begin
            OnlyRussian:=True;
            OnlyEnglish:=False;
      End;
      If AnsiUpperCase(Lang) = ENGLISH Then
      Begin
            OnlyRussian:=False;
            OnlyEnglish:=True;
      End;
end;


end.

[Аватар]

А типа NameEdit нет случайно в uses-ах:
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, QAgeEdit;
Возможно он есть там и программа берет не то что вы думаете?

PS - дошло - ваш TEdit из QStdCtrls, отсюда ноги растут

[_-Re@l-_]

Вот-вот, вчера когда уже спать лёг, понял, что из-за этого Но всё равно спасибо.