Werte an andere Form übergeben

[Sharky]

Zitat von Snooze:

...wie kann ich Werte eines Edit-Feldes (z. Bsp.: Text) einer anderen Form übergeben?...

Hai Snooze,

ich würde dafür in deiner zweiten Form im Public-Teil eine Procedure deklarieren.

Delphi-Quellcode:

type
  TForm2 = class(TForm)
  private
    { Private-Deklarationen }
    s_editform1 : String;
  public
    { Public-Deklarationen }
    procedure SetEdit (const value : String = '');
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.SetEdit (const value : String = '');
begin
  s_editform1 := value;
end;

Wenn deinen Unit von Form2 jetzt in der Uses deiner ersten steht kannst Du den Text einfach übergeben:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.SetEdit(Edit1.Text);
end;

[Edit]Manzoni scheint fast so zu coden wie ich *gg*. Nur das ich es genau anderes herum gemacht habe. [/edit]