zwischen Forms wechseln

[Schorschi5566]

Hallo Hansa,

was willst Du denn genau machen?

Also einfach zwischen den Forms hin und herschalten, kann man so machen...

Form1:

Delphi-Quellcode:

unit Main;

interface

uses
  Forms, Classes, StdCtrls, Controls,
  Form2;

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

var
  frmEins: TfrmEins;

implementation

{$R *.dfm}

{ TfrmTemplate }

procedure TfrmEins.Button1Click(Sender: TObject);
begin
  frmZwei.Caller := Self;
  frmZwei.Show; // Form2 aufrufen
end;

end.

...und Form2:

Delphi-Quellcode:

unit Form2;

interface

uses
  Forms, Classes, StdCtrls, Controls;

type
  TfrmZwei = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    FCaller : TForm;
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    property Caller : TForm read FCaller write FCaller;
  end;

var
  frmZwei: TfrmZwei;

implementation

{$R *.dfm}

procedure TfrmZwei.Button1Click(Sender: TObject);
begin
  FCaller.SetFocus; // Zurück zu Form1. Zum Beispiel so...
end;

procedure TfrmZwei.Button2Click(Sender: TObject);
begin
  Close; // ...oder so. ;-)
end;

end.

Grüße,
Uwe