F�rum Criando componente composto por componentes #607073

16/12/2019

Delphi Component Object Model Web Components

Ol�, galera

Estou come�ando a desenvolver componentes visuais, a princ�pio eu preciso de um componente chamado "TComponenteAleatorio" que tenha v�rios outros componentes dentro como TEdit, TLabel, TRectangle, etc. (Foquem no TEdit)

D�vida: Eu preciso ter acesso a propriedade TEXT do TEdit que comp�e o meu "TComponenteAleatorio", com isso adicionei uma propriedade "EditText" no meu "TComponenteAleatorio" que acessa a propiedade Text do TEdit. O problema � quando eu digito algo no TEdit pertencente ao "TComponenteAleatorio" e acesso pela propriedade "EditText" do "TComponenteAleatorio" ele sempre retornar uma string vazia, mesmo tendo algo digitado no TEdit. Algu�m pode me ajudar?

O c�digo abaixo n�o � o real do componente que estou fazendo, dei uma resumida pra ficar mais f�cil de entender. Esse c�digo abaixo foi testado e d� a mesma coisa.


uses
  System.SysUtils, System.Classes, FMX.Types, FMX.Controls, FMX.Edit;

type
  TEditTeste = class(TControl)
  private
    FEdit: TEdit;
    function GetFText: String;
    procedure SetFText(const Value: String);

  protected
    procedure Paint; override;

  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;

  published
    property Text: String read GetFText write SetFText;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents(''''Delphistrap'''', [TEditTeste]);
end;

{ TEditTeste }

constructor TEditTeste.Create(AOwner: TComponent);
begin
  inherited;
  FEdit := TEdit.Create(self);
  FEdit.Parent := Self;
  FEdit.Align := TAlignLayout.Client;
end;

destructor TEditTeste.Destroy;
begin
  inherited;
end;

procedure TEditTeste.Paint;
begin
  inherited;
end;

procedure TEditTeste.SetFText(const Value: String);
begin
  FEdit.Text := Value;
end;

function TEditTeste.GetFText: String;
begin
  Result := FEdit.Text;
end;

end.

Aqui est� o resultado quando eu acesso a propiedade: https://imgur.com/a/kbDG5hJ

Joao

Curtir t�pico

+ 0

Responder