TWidgetControl и self

[_-Re@l-_]

Вот такой код:

var NE : NameEdit; // NameEdit - потомок класса TEdit
///
procedure TForm1.FormCreate(Sender: TObject);
begin
      NE:=NE.Create(self);   
      NE.Parent:=self; // Нельзя; Почему?
      ////
end;

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

а что ошибку выдает?(и какую)

[_-Re@l-_]

Да, Incompatible types : "TWidgetControl" and "TForm1".

[Swarog]

Вроде можно, у меня с memo так работало ...

[ReportCube]

Внимательно посмотрите на создание класса, у Вас ошибка при создании

[_-Re@l-_]

Вот более полный код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, QAgeEdit, QNameEdit;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    NE : NameEdit;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
      NE:=NE.Create(self);
      NE.Parent:=self;

Аааааааааа, я лох...

NE:=NE.Create(self);

Надо было

NE:=NameEdit.Create(self);

Однако, вот это

NE.Parent:=self;

Delphi всё равно даёт сделать. Просто не компилирует.

[Аватар]

Тип вашего NE.Parent - TWidgetControl. Я правильно понял? Self имеет тип TForm в данном случае. Если бы TWidgetControl был родителем TForm, то такое присвоение допустимо. Иначе - ошибка

[_-Re@l-_]

А как надо делать-то? Как бы я в своём компоненте не переопределяю Parent, оно наследуется от TEdit.

Заметил: с обычным editом проканывает, с моим - нет.

[Аватар]

В TEdit Parent - TWinControl. Зачем его переопределять? Присваивая Parent вы говорите объекту в данном случае, что он будет находиться на форме. Если для экзотики вам надо чтобы в качестве Parent всегда віступал TWidgetControl, то и присваивайте объект такого типа или его наследника

[_-Re@l-_]

Мне не надо чтобы Parent был TWidgetControl, в этом-то и проблема! Я ничего с ним не делал! А он пишет, что NE.Parent - 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.