Einzelnen Beitrag anzeigen

Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.442 Beiträge
 
Delphi 12 Athens
 
#2

Re: Komponente mit Formular-Wie von Form auf Variablen zugre

  Alt 23. Sep 2008, 21:55
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;
Uwe Raabe
  Mit Zitat antworten Zitat