auf dynamische lokal erstellte form zugreifen

[Jens Schumann]

Hallo,
das funktioniert so:

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
    procedure ShowText(aForm : TForm2);
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation



{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
  aForm : TForm2;
begin
  aForm:=TForm2.create(Nil);
  Try
    ShowText(aForm); // Auch Formulare können als Parameter übergeben werden.
  Finally
    aForm.Release;
    aForm:=Nil;
    end;
end;

procedure TForm1.ShowText(aForm: TForm2);
begin
  ShowMessage(AForm.Text);
end;

end.

Malo's Vorschlag mit den Messages ist zwar grundsätzlich möglich aber eigentlcih ziemlich daneben. Wenn das Formular als Paramenter übergeben wird benötigt man auch keine privaten Felder.

[edit] MAGIC zweimal das gleiche Posting [/edit]