Neue Form öffnen durch Button

[Thendo]

Morgen^^,

hoffe ihr könnt mir helfen:

Also ich möchte folgendes machen:

Programm start -> Auf Button klicken -> Neue Form öffnen

Meine Frage ist wie ich es mache das wenn ich auf den Button klicke er die andere Form öffnet (nicht als 2t Fenster)


Danke schonmal für die Hilfe^^


MfG Thendo

[DeddyH]

Hallo und Willkommen in der DP ,

was meinst Du mit "nicht als 2t Fenster"?

[Die Muhkuh]

Vielleicht will er die Form mit dem Button schließen und eine andere Form aufmachen?

[DeddyH]

Wenn das aufrufende Fenster die Mainform ist, ist das mit dem Schließen aber keine gute Idee.

[Die Muhkuh]

Dann halt nur verstecken.

[toms]

Vielleicht so?

Delphi-Quellcode:

Form1.Hide
Form2.Show

[Thendo]

Zitat von DeddyH:

Hallo und Willkommen in der DP ,

was meinst Du mit "nicht als 2t Fenster"?

Danke danke^^

Also ich meine das so:

Wenn man auf den Button klickt kommt Form2 und Form1 is weg. Und dan ist da halt zeugs xD und wieder ein Button zurück zur Haupt"seite".

Zitat von toms:

Vielleicht so?

Delphi-Quellcode:

Form1.Hide
Form2.Show

Ich werds versuchen danke^^




Thx@All Werd mich gleich wieder melden^^

[Thendo]

Hab jetzt mit Show und Hide probiert aber bekomm jetzt mehrere Fehler:

Zitat:

[DCC Fehler] Unit1.pas(11): E2029 ',' oder ':' erwartet, aber '=' gefunden
[DCC Fehler] Unit1.pas(22): E2003 Undefinierter Bezeichner: 'TForm2'
[DCC Fehler] Unit1.pas(24): E2029 'END' erwartet, aber 'IMPLEMENTATION' gefunden
[DCC Fehler] Unit1.pas(26): F2092 Das Programm oder die Unit 'Unit1' ruft sich selbst wieder auf

Hier ist der Quelltext dazu:

Zitat:

unit Unit1;

interface

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

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

var
Form1: TForm1;
Form2: TForm2;

implementation

uses Unit2, Unit1;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin

Form1.Hide
Form2.Show

end;

end.

Hoffe jemand kann mir helfen^^

[mkinzler]

TForm2 = class(TForm)

[DeddyH]

Delphi-Quellcode:

unit Unit1;

interface

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

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

var
  Form1: TForm1;

  
implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Hide;
  Form2.Show;
end;

end.