Zur Laufzeit erstellte Komponenten eindeutig erkennen

[Kroko1999]

Delphi-Quellcode:

type
  TDemo = class(TObject)
    constructor Create (AOwner: TComponent);
  private
    FEdit: TEdit;
    FWert : integer;
    procedure EditChange (Sender: TObject);
    procedure SetWert (Const Value: Integer); 
  protected
  public
   Edit: TEdit read FEdit;
   Wert: Integer read FWert write SetWert;
  end;
var
  Demo : TDemo;

implementation

constructor TDemo.Create;
begin
  FEdit := TEdit.Create (AOwner);
  FEdit.Parent := AOwner;
  FEdit.OnChange := EditChange;
end;

procedure TDEmo.SetWert;
begin
  FWert := Value;
  FEdit.Text := IntToStr(FWert);
end;

procedure EditChange;
begin
  FWert := StrToInt (FEdit.Text);
end;


  Demo := TDemo.Create(Form1);//in irgendeinem Steuerelement
  Demo.Wert := 8;
end.