Komponente mit Formular-Wie von Form auf Variablen zugreifen

[Uwe Raabe]

Wenn die Komponentenklasse dem Form bekannt ist, deklariere im Form ein Property vom Typ der Komponente und setz es auf die Komponenenten-Instanz, wenn du das Formular aufrufst. Etwa so:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    ...
  private
    ...
    FKomponente: TKomponente;
    ...
  public
    ...
    property Komponente: TKomponente read FKomponente write FKomponente;
    ...
  end;

...

procedure TForm1.Button1Click(Sender: TObject);
begin
  ...
  Komponente.CheckEntry(edit1.Text);
  ...
end;

...

procedure TKomponente.ShowInfo;
var
  InfoForm: TForm1;
...
begin
  ...
  InfoForm := TForm1.Create(Application);
  try
    InfoForm.Komponente := Self;
    ...
  finally
    InfoForm.Free;
  end;
end;