Variablenübergabe

[Chemiker]

Hallo wireless,

vielleicht hilft ein Beispiel weiter.

Also einmal das Hauptformular:

Delphi-Quellcode:

unit frmMainMenu;

interface

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

type
  THautFormular = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    vString: String;   // <------- Die Variable die weitergegeben soll. 
  end;

var
  HautFormular: THautFormular;


implementation

uses frmunterformular;

{$R *.dfm}

procedure THautFormular.Button1Click(Sender: TObject);
begin
  vString:= Edit1.Text; // <--------------- Text in die Variable abspeichern.
  Edit1.Clear;
end;

procedure THautFormular.Button2Click(Sender: TObject);
begin
  Unterformular.Show; // <---------------- Unterformular aufrufen
end;

procedure THautFormular.Button3Click(Sender: TObject);
begin
  Edit1.Text := vString; // <-------- Nachdem die Variable im Unterformular geändert worden ist. 
end;

end.

Nun das Unterformular:

Delphi-Quellcode:

unit frmunterformular;

interface

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

type
  TUnterformular = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Unterformular: TUnterformular;

implementation

uses frmMainMenu;


{$R *.dfm}

procedure TUnterformular.Button1Click(Sender: TObject);
begin
  Edit1.Text := HautFormular.vString;   // <-------- Die Variable im TEdit anzeigen.
end;

procedure TUnterformular.Button2Click(Sender: TObject);
begin
  HautFormular.vString := Edit1.Text;  // <-------- Ein veränderter Text in die Variable speichern.
end;

end.

Roter Kasten
Bis bald Chemiker