zwischen Forms wechseln

[mkinzler]

Erweitere die Form um eine Prozedur, der du den Caller übergibst

[Hansa]

Caller, was ist das ? Soll das die aufrufende Form sein ? Falls dem so ist : Form1 ruft Form2 auf. Form2 merkt sich den Namen der aufrufenden Form. Jetzt will Form2 zurück zu der aufrufenden Form1.

Dasselbe Szenario kann aber auch mit Form93 passieren. Auch die geht zu Form2, merkt sich dass sie von Form93 aufgerufen wurde und dann soll es wieder zurück von Form2 zu Form93 gehen. Nicht zu Form1.

Form2 (die immer gleich bleibt) die weiss jetzt, dass sie von Form1 oder eben Form93 aufgerufen wurde. Genau dahin soll sie zurück. Über den Namen, der in der Variablen "AufrufFormName" gespeichert ist, soll sie genau dahin wieder zurück.

[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

[mkinzler]

Man könnte auch die Show-Methode entsprechend Überladen

[Hansa]

Man braucht da keine Properties. Ich war aber wohl zu sparsam. Merkt man sich die komplette aufrufende Form und nicht nur den Namen, so ungefähr :

frm1.AufrufForm := self; dann läuft alles wie gewünscht.

SetFocus ist übrigens auch mit Vorsicht zu geniessen. So gehts allerdings (aus der aufgerufenen Form heraus) :

AufrufForm.BringToFront; Wie man dasselbe Szenario nur mit Hilfe des Form-Namens hinbekommt, das ist mir noch nicht klar. Irgendwie denke ich, dass auch das gehen müsste.

[OldGrumpy]

Jedes Form kann doch einen Pointer auf sich selbst via Self liefern, warum willst Du den Umweg über den Namen gehen? Ich finde ein Konstrukt wie

SecondForm.Show(Self);

viel eleganter als da den Namen des Forms zu übergeben und dann später anhand des Namens nach dem richtigen Form zu suchen. Einfach wie von mkinzler schon angedacht TForm.Show überladen und fertig ist die Laube. Ggf. einziger Arbeitsaufwand: Überall im Projekt TForm durch die eigene abgeleitete Klasse ersetzen. Wenn Du nicht viel doppelten (eher vielfach identischen) Code schreiben willst, brauchst Du eh eine eigene Ableitung von TForm, warum also nicht gleich den Weg des geringsten Aufwands gehen? Durch die Überladung von TForm.Show kannst Du auch das Property einsparen, brauchst nur das private Field in der Klasse um den Aufrufer zu merken.