[resolvido] Dois Edits Em Um Componente ?

[Jesus]

Olá pessoal, quero criar um componente. Este deve ter dois edits, um ao lado do outro. Este componentes terá funções especiais para se adaptar ao meu projeto.

Não faço idéia de como fazer isso. Existe, no delphi, o LabelEdit, seria algo parecido, só que ao invés de um edit e um label, teria dois edits.

Aqui uma tentativa:

TPBetEdit = class(TEdit)
  private
    FEdit1: TEdit;
    FPSet : TPSet;
  public
    constructor Create(AOwner : TComponent); override;
  published
    property PSet: TPSet read FPSet write FPSet;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Pesquisa', [TPBetEdit]);
end;

constructor TPBetEdit.Create(AOwner: TComponent);
begin
  inherited;

  FPSet := TPSet.Create(Self);

  FEdit1 := TEdit.Create(AOwner);
  FEdit1.Top := Top + 15;
end;

O TPSet é um outro componente criado por mim, tem outras funçoes, podem desconsiderá-lo...

Editado Setembro 5, 2007 por Micheus

[Jhonas]

Para entnder um pouco mais como criar componentes:

http://www.dpi.ufv.br/downloads/cursoKylix...tilas/ccu04.htm

[Jesus]

Para entnder um pouco mais como criar componentes:

http://www.dpi.ufv.br/downloads/cursoKylix...tilas/ccu04.htm

Obrigado pela página, muito boa!!

Mas o problema aqui é um pouquinho mais complexo. Eu pretendo criar um componente (herdado da classe TEdit) e este deve ter um outro componente (também herdado da classe TEdit) que DEVE SER VISUALIZADO em seu dono, ou seja, se eu inserir meu componente em um formulário, neste formulário deve ser mostrado DOIS TEdits, mesmo sendo um componente.

Como se eu inserisse um LabelEdit. Este é UM COMPONENTE, porém é mostrado um Edit e um Label.

EDITADO:

RESOLVIDO, abaixo está o código do componente, quem não entender e tiver algum interesse é só perguntar.

...

  TPBetEdit = class(TWinControl)
  private
    FPSet: TPSet;
    FEdit1: TEdit;
    FEdit2: TEdit;
  public
    constructor Create(AOwner : TComponent); override;
  published
    property PSet: TPSet read FPSet write FPSet;
  end;

...

constructor TPBetEdit.Create(AOwner: TComponent);
begin
  inherited;

  width := 161;
  height := 24;

  FEdit1 := TEdit.Create(self);
  FEdit1.parent := Self;
  FEdit1.Width := 65;

  FEdit2 := TEdit.Create(self);
  FEdit2.parent := Self;
  FEdit2.Width := 65;
  FEdit2.Left := 96;

  FPSet := TPSet.Create(Self);
end;

Editado Setembro 5, 2007 por Jesus