Wie kann man von Form1 auf Form2 zugreifen und anders herum

[DerMaBo]

Also ich kann ja von unit1 auf unit 2 bzw. von form1 auf form2 zugreifen weil ich die unit2 bei unit1 zugefügt hab (wie gesagt pascal kan ich..) aber ich möchte z.B. auf der zweiten Form nen Button einfügen um die simulation auf der ersten Form zu starten oder einfach um die caption zu ändern.... das meinte ich

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
form1.Left:=50;
form1.Top:=100;
form2.Left:=form1.Left+form1.Width;
form2.Top:=100;
form2.AlphaBlend:=TRUE;
form2.AlphaBlendValue := 0;
form2.Show;
form2.Timer1.Enabled := TRUE;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
form2.Button1.Caption:=edit1.Text;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin

end;

end.

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    Timer1: TTimer;
    Button1: TButton;
    Edit1: TEdit;
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Timer1Timer(Sender: TObject);
begin
  AlphaBlendValue := AlphaBlendValue + 17;
  if AlphaBlendValue > 254 then
  begin
    Timer1.Enabled := FALSE;
  end;
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
form2.Hide
end;

procedure TForm2.Edit1Change(Sender: TObject);
begin
test:=form2.Edit1.Text;
button1.Caption:=test;
end;

end.


unit Unit3;

interface
 var test:string;
implementation

end.

!Das ist nur nen test Programm!

[edit=Sharky]Delphi-Tags gesetzt. Mfg, Sharky[/edit]