ein dynamisch erstelltes object abfragen!

[fredel007]

wie kann ich eine abfrage auf ein dynamisch erstelltes object machen!
ich möchte z.B. wissen ob im dynamisch erstellten Edit etwas eingetragten wurde!
wie muss des genau aussehen?

danke!

Delphi-Quellcode:

procedure Tform1.button1onclick(Sender: Tobject);
var
  labeledx:  TlabeledEdit; 
begin

    labeledx := TlabeledEdit.Create(form1);
    labeledx.Parent := form1;
    labeledx.Name := 'XXX';
    labeledx.EditLabel.Caption := 'egal';
    labeledx.text:='';
    labeledx.Top := 80;
    labeledx.Left := 12;
    labeledx.Width:= 30;
    labeledx.Height := 21;

end;
 
procedure Tform1.verarbeiten(Sender: Tobject);
begin
  if XXX.text <> '' then
  begin
    form1.Brush.Color:=cllime;
  end;
end;

so gehts nämlich nicht!

[Jens Schumann]

Hallo,
stimmt so geht es auch nicht.
Es geht aber, wenn Du im private Abschnitt des Formulars labeledx: TlabeledEdit; deklarierst.
Also ungefähr so:

Delphi-Quellcode:

...
private
  Flabeledx:  TlabeledEdit;

...

procedure Tform1.button1onclick(Sender: Tobject);
begin
    Flabeledx:= TlabeledEdit.Create(form1);
    Flabeledx.Parent := form1;
    Flabeledx.Name := 'XXX';
    Flabeledx.EditLabel.Caption := 'egal';
    Flabeledx.text:='';
    Flabeledx.Top := 80;
    Flabeledx.Left := 12;
    Flabeledx.Width:= 30;
    Flabeledx.Height := 21;
end;

procedure Tform1.verarbeiten(Sender: Tobject);
begin
  if Flabeledx.text <> '' then
  begin
    form1.Brush.Color:=cllime;
  end;
end;

[Tpercon]

Oder die Komponente an Hand ihres Namens mit FindComponent suchst. Dann kannst du auch anschließend mit ihr spielen.

[vbinsider]

du kannst aber auch dynamisch ereignis-handler zuweisen, z.B. so:

Delphi-Quellcode:

var MyEdit : TEdit;

procedure Verarbeiten(Sender : TObject);
begin
  // Hier wird der Edit-Inhalt verarbeitet
end;

procedure TForm1.FormCreate(Sender : TObject);
begin
  MyEdit:= TEdit.Create(self);
  MyEdit.Parent:= Form1;
  // [...]

  MyEdit.OnChange:= Verarbeiten; // Verarbeiten wird als Ereignis-Handler definiert und bei jeder
  // Bearbeitung aufgerufen
end;