Formular in Komponente?

[Sidores]

Hi,
kann man in eine Komponente ein Formular packen.
Ich will das wenn man zum bsp. bei meiner ComboBox F2 drückt,
halt ein Formular öffnet wo der Benutzer einstellungen vornehmen kann.
Habe Formular und Komponente in einem Package, aber wenn ich mir das Formular anzeigen lassen will stürzt es ab.
Hat jemand sowas schon mal gemacht?

Danke

[Leuselator]

Man nehme:
FormularUnit:

Delphi-Quellcode:

unit DeineFensterUnit;
interface
uses ...;
type
  TMeinEinstellFenster = class(TForm)
  ...

In Deiner KomponentenUnit:

Delphi-Quellcode:

Unit DeinKomponentenUnit;
interface
uses ...;
type
  TDeineKompo = class(Vorfahr);
  private
    FFenster : TForm;
    ...
  public
    constructor Create(AOwner:TComponent); override;
    destructor Destroy; override;
    ...
  published
    ...
  end;

implementation;
uses DeineFensterUnit;

constructor TDeineKompo.Create(AOwner:TComponent);
begin
  FFenster := TMeinEinstellFenster.Create(self);
  // wenn Du auf Spezielle Eigenschaften oder Komponenten dieses Fensters
  // zugreifen möchtest, die nicht in TForm deklariert sind machst Du es so:
  TMeinEinstellFenster(FFenster).IrgendeinButton.Caption := 'Na so was!';
end;

destructor TDeineKompo.Destroy;
begin
  FreeAndNil(FFenster);
end;

Nun mußt Du noch die Unit "DeineFensterUnit" in das Packageprojekt aufnehmen (hinzufügen) und fertig ist der Lack.
Gruß

[Sidores]

Kann ich diese Fenster auch während der Entwicklungzeit(Desginzeit) aufrufen??

[nemo2003]

hab @ausbildung eine komponente entwickelt, die nachrichten aus einer log datei ausliest und dem benutzer über ein formular in der komponente die möglichkeit gibt auszuwählen, welche nachrichten gefiltert werden soll...

zur entwicklung ist mir das aber nicht bekannt!

[Leuselator]

Ja.
Das Stichwort lautet: "PropertyEditor"
ist ein umfangreiches Thema - um viel Lesen in OH und Suchen (hier und Google) kommt man nicht herum.
Gruß

[josef-b]

Ich habe das mal nachgebaut, weil ich auch ein Formular aus meiner Komponente aufrufen möchte.

Meine Frage ist:

Wie rufe ich das Formular zur Laufzeit auf, bzw. wie mache ich es zur Laufzeit sichtbar?

[DeddyH]

Der einfachste Weg IMO:

Delphi-Quellcode:

procedure TDeineKomponente.EinEvent(Sender: TObject);
var
  frm: TDeinFormular;
begin
  frm := TDeinFormular.Create(nil);
  try
    frm.EineEigenschaft := EinWert;
    if frm.ShowModal = mrOK then
      HolWertAusFormular;
  finally
    frm.Free;
  end;
end;

Was genau da hin und her übergeben werden soll, musst Du selbst wissen.

[josef-b]

Das ist mir gerade alles etwas zu hoch :(

Ich habe jetzt einfach ein losgelöstet Formulur erzeugt, und mache das dann dort,
was das eingebettete Formulur machen sollte. Geht auch.

[himitsu]

Wieso zu hoch?

Eine Form ist auch nur eine Komponente/Klasse, so wie z.B. TStringList, TIniFile oder TEdit.

Diese Komponente kann man erstellen (Create), anzeigen (Show oder ShowModal) und wieder freigeben (Free), wenn man sie nicht mehr braucht.

[Redeemer]

Ich bin mir nicht sicher, ob er ein Formular aufrufen wollte (was DeddyH meinte) oder ein Formular einbinden möchte (so wie es der Formdesigner in Delphi selbst tut). Letzteres ist vermutlich sehr schwer, einfacher ist es, sich einen Frame zu holen. Frames sollten zur Laufzeit erstellt werden (wichtig: Parent setzen, sonst passiert überhaupt nichts), da die Delphi-IDE zur Entwurfszeit sehr komische Dinge tut.