Hallo Zusammen!

Habe mal eine VCL Komponente gebastelt. Über eine Prozedur der Komponente soll ein Formular angezeigt werden. Klickt der User auf ein Button in dem Formular, soll eine Funktion der Komponente aufgerufen werden.

Z.B. so

// Zum anzeigen des Formulars
MyKompo.ShowInfo;

// Im Dialog - Button Klick
..
{Button1.Click}
..
MyKompo.CheckEntry(edit1.text);
..

Mir fehlen da scheinbar ein paar Grundlegende Infos zu Formularen in Komponenten. Kann mir da vielleicht jemand von euch helfen?

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:

zusammenfalten · markieren

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;

ACHSO!... *an den kopf hau*

Alles klar, vielen dank, das ist wirklich super.

Danke!

Gruß,
Peter