Combobox.Text an andere Unit übergeben

[bluerazer190]

Hallo Leute,
ich sitze hier seit mehreren Stunden an folgenden Problem:

Ich habe eine Unit/Form1. Dieses erstellt beim Klick auf Start ein 2. Form und dementsprechend auch eine 2.Unit.
Ich übergebe eine variable x an die 2. Unit und lese diese dort aus. Die funktioniert.

Jedoch soll beim Klick auf den Button "Start" der aktuell gewählte Text aus der Combobox an die 2. Unit übergeben werden. Das geht leider nicht.

Konkret heißt das: die Variable "dateipfad" kann ich in Unit2 auslesen. Die Variable "choosedlec" ist leer.

Hier mal mein Quellcode:
Unit 1

Code:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    vokabelfiles: TComboBox;
    Button1: TButton;
    start: TButton;
    debug: TLabel;
    ComboBox1: TComboBox;
    Label1: TLabel;
    Label2: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure startClick(Sender: TObject);
    procedure vokabelfilesChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    dateipfad,choosedlec:string;
  end;

var
  Form1: TForm1;


implementation
  uses Unit2;
{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var searchResult : TSearchRec;
begin
  dateipfad:=ExtractFilePath(ParamStr(0))+'Vokabeldateien\'; 
  if FindFirst(dateipfad+'*.txt', faAnyFile, searchResult) = 0 then
    begin
      try
        repeat
          vokabelfiles.Items.Add(searchResult.Name);
        until FindNext(searchResult) <> 0;
      finally
        FindClose(searchResult);
      end;
  end;
end;

procedure TForm1.vokabelfilesChange(Sender: TObject);
begin
  choosedlec:=vokabelfiles.Text;
end;

procedure TForm1.startClick(Sender: TObject);
begin
  Form2.Show;
end;

end.

Unit2

Code:

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm2 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Label3: TLabel;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

  uses Unit1,Unit3;

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);
var
  text: string;
  vokabeldatei: TextFile;

begin
  Label3.Caption:=Unit1.Form1.choosedlec;
  Label3.Caption:=Unit1.Form1.dateipfad;
end;

end.

Ich danke euch

[DeddyH]

Hallo und Willkommen in der DP :dp:,

so wie es aussieht, wird Form2 automatisch erstellt, d.h. zum Zeitpunkt seiner Erzeugung (OnCreate) ist die Variable aus Form1 ja noch gar nicht befüllt. Abgesehen davon ist es etwas "ungeschickt", dass Form1 Form2 kennen muss und umgekehrt. Spendiere doch einfach Form2 eine Property und befülle diese, bevor Du es anzeigst.

[bluerazer190]

Zunächst vielen Dank für die schnelle Antwort.

Meine Delphizeiten liegen leider sehr weit zurück.

Was genau meinst du mit, dass Form2 automatisch erstellt wird? Also ich habe in Delphi 2 Formulare erstellt. Form2 wird in Unit1 mit dem Befehl Form2.Show; nach dem Klick auf Start in den Vordergrund gerufen.

Deshalb verstehe ich nicht, warum die variable "dateipfad" korrekt übergeben wird, aber "choosedlec" nicht. :(

MfG

[DeddyH]

In der *.dpr wird wahrscheinlich zuerst Form1 erzeugt und dann Form2. Da Du den einen Code bereits im OnCreate von Form1 ausführst, ist zum Zeitpunkt der Erstellung von Form2 die Variable bereits befüllt. Anders verhält es sich bei allen späteren Ereignissen von Form2, da zu diesem Zeitpunkt Form2 ja bereits erzeugt wurde und somit dessen OnCreate niemals mehr duchlaufen wird (zumindest solange Du das Formular nicht neu erzeugst).

[bluerazer190]

Ahh, OK, jetzt habe ich den Fehler verstanden.
Lässt sich das Problem, auch irgendwie anders lösen?

Im Internet lese ich immer etwas von "FormStyle fsMDIParent" hast du diesbezüglich eine Idee?

Denn mit Formularen während der Laufzeit zu erstellen habe ich noch gar keine Erfahrungen.

MfG

[DeddyH]

Wie gesagt: der eleganteste Ansatz geht IMO über eine Propery. Dann besteht auch keine Notwendigkeit mehr, dass Form2 Form1 kennen muss. Beispiel:

Delphi-Quellcode:

type 
  TForm2 = class(TForm)
  ...
  private
    FStringProperty: string:
    FIntProperty: integer;
    ...
  public
    ...
    property StringProperty: string read FStringProperty write FStringProperty;
    property IntProperty: integer read FIntProperty write FIntProperty;
  end;

...

procedure TForm2.FormShow(Sender: TObject);
begin
  ShowMessage(Format('String: %s, Int: %d', [StringProperty, IntProperty]));
end;

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.StringProperty := 'Ach was?!';
  Form2.IntProperty := 42;
  Form2.Show;
end;

[bluerazer190]

Kannst du hiermit etwas anfangen?

Du gehst so vor:

Du bastelst zunächst ein Hauptformular, welches Dein Menü, etc., enthält. Dieses bekommt als FormStyle fsMDIParent (?, das ist jetzt aus dem Kopf).
Dann erzeugst Du noch ein zweites Formular, welches als FormStyle fsMDIChild bekommt. Dieses ist in den Projekt-Optionen auf die rechte Seite zu schieben, weil es dynamisch von Dir erzeugt wird.
Das MDI-Child braucht bei FormClose als Action caFree, weil es beim Schließen sonst nur minimiert werden würde.
Per Menüpunkt (z.B. "Neue Notiz") erzeugt Du eine Instanz des MDI-Childs (TfmChild.Create (Application)), welches Du dann mittels Show anzeigst.

[bluerazer190]

Also wenn ich so vorgehe, kann ich auf meine Variable zugreifen... mal sehen, wies weite geht. :)

Danke für deine hilfreichen und schnellen Antworten.

[DeddyH]

Sry, das MDI im letzten Posting hatte ich wohl überlesen. Aber gut, auch da ginge das mit Properties.

[bluerazer190]

Nächstes Problem. -.-

Habe das Form2 jetzt als MDIChild deklariert.

Wenn ich es mit TForm2.Create(self); in Unit 1 erstelle, öffnet es sich zwar, aber es ist aufeinmal viel größer als es desint wurde.

Woran könnte das liegen?