per buttonklick neues fenster öffnen

[gast5]

hi,hoffe ich bin hier richtig.
ich habe Lazarus delphi und wollte fragen wie man per Buttonklick ein neues Fenster öffnet. Also wenn man auf den Button drückt das sich dann ein zweites Fenster öffnet ohne dass das erste Fenster geschlossen wird.
Mit Quelltext wäre schon.
Bedanke mich schon im Vorraus für jede Antwort.

[Daniela.S]

Ähm, ein Lazarus Delphi gibt's nicht. Lazarus verwendet FreePascal :wink:

Der Code ist aber großteils kompatibel...

Delphi-Quellcode:

procedure TForm1.OnButtonClick( Sender: TObject);
begin
  Form2 := TForm2.Create( Self );
  try
    Form2.ShowModal;
  finally
    Form2.Free;
    end;
end;

[himitsu]

Bitte hierfür eine lokale Variable dafür verwenden und nicht die Globale.

Delphi-Quellcode:

procedure TForm1.OnButtonClick( Sender: TObject);
var 
  Form2: TForm2; 
begin
  Form2 := TForm2.Create(Self);
  try
    Form2.ShowModal;
  finally
    Form2.Free;
  end;
end;

oder Keine.

Delphi-Quellcode:

procedure TForm1.OnButtonClick( Sender: TObject);
begin
  with TForm2.Create(Self) do 
    try
      ShowModal;
    finally
      Free;
    end;
end;

und wenn die Fenster paralell nutzbar sein sollen, dann

Delphi-Quellcode:

MyForm2 := TForm2.Create(Self);
MyForm2.Show;

und irgendwann dann ein 
MyForm2.Free;

[Daniela.S]

Zitat:

Bitte hierfür eine lokale Variable dafür verwenden und nicht die Globale

:thumb: Zustimm'... hab's der Einfachheit halber nicht erwähnt :roll:

[DeddyH]

Seid Ihr überhaupt sicher, dass das so gemeint ist? Ich hätte jetzt eher auf

Delphi-Quellcode:

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

getippt.

[gast5]

Danke für eure schnellen Antworten.
Aber leider funktioniert es bei mir nicht.
Ich habe auf Form1 einen TButton raufgelegt dann habe ich auf den Button geklickt, bin dann auf Ereignisse und dann auf OnClick.
Danach habe ich die drei Punkte ...
angeklickt und dann im Quelltexteditor den Code eingefügt.
Beim kompolieren kommen aber immer fehlermeldungen.
Was mache ich falsch?

[Daniela.S]

Also ohne Code und Beschreibung der Fehlermeldung wird uns wohl nur Raten übrig bleiben :glaskugel:

[DeddyH]

Ist denn auch die Unit des aufzurufenden Formulars in der des aufrufenden eingebunden (uses-Klausel)?

[gast5]

code:

Delphi-Quellcode:

procedure TForm1.OnButtonClick( Sender: TObject);
         begin
         Form2 := TForm2.Create( Self );
          try
           Form2.ShowModal;
           finally
           Form2.Free;
          end;
          end;

Zitat:

Fehler:Fatal Syntax Error ";" excepted but indentifier TFORM1 found

code:

Delphi-Quellcode:

procedure TForm1.OnButtonClick( Sender: TObject);
           var
          Form2: TForm2;
           begin
          Form2 := TForm2.Create(Self);
           try
          Form2.ShowModal;
          finally
         Form2.Free;
         end;
         end;

Zitat:

Fehlerr: Fatal Syntax Error ";" excepted but indentifier TFORM1 found

code:

Delphi-Quellcode:

procedure TForm1.OnButtonClick( Sender: TObject);
          begin
         with TForm2.Create(Self) do
          try
         ShowModal;
         finally
         Free;
         end;
        end;

Zitat:

Fehler: Fatal Syntax Error ";" excepted but indentifier TFORM1 found

code:

Delphi-Quellcode:

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

Zitat:

Fehlerr: Fatal Syntax Error ";" excepted but indentifier TFORM1 found

[gast5]

Zitat:

Zitat von DeddyH (Beitrag 1107905)

Ist denn auch die Unit des aufzurufenden Formulars in der des aufrufenden eingebunden (uses-Klausel)?

Ja ist es

[mkinzler]

Heisst den die Formklasse des Rufers auch TForm1?

[gast5]

Zitat:

Zitat von mkinzler (Beitrag 1107909)

Heisst den die Formklasse des Rufers auch TForm1?

Natürlich

[DeddyH]

In welcher Zeile tritt der Fehler auf? Hast Du den Code einfach per C&P eingefügt oder per Doppelklick auf den Button das Codegerüst erzeugen lassen?

[gast5]

Zeile 34,13
Zuerst habe ich per Doppelklick den Code erzeugen lassen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin

end;

Die Codes habe ich hierherauskopiert und dann zwischen begin und end; bei der leeren Zeile eingefügt

[mkinzler]

Poste mal die komplette Unit (Code)

[gast5]

Hier der Code:

Delphi-Quellcode:

unit Unit1; 

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 

var
  Form1: TForm1; 

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin
  procedure TForm1.OnButtonClick( Sender: TObject);
var
  Form2: TForm2;
begin
  Form2 := TForm2.Create(Self);
  try
    Form2.ShowModal;
  finally
    Form2.Free;
  end;
end;
end;

end.

[DeddyH]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
(*begin
procedure TForm1.OnButtonClick( Sender: TObject); *)
var
  Form2: TForm2;
begin
  Form2 := TForm2.Create(Self);
  try
    Form2.ShowModal;
  finally
    Form2.Free;
  end;
(*end;*)
end;

Du hast zuviel kopiert und eingefügt.

[himitsu]

Zitat:

Zitat von DeddyH (Beitrag 1107889)

Seid Ihr überhaupt sicher, dass das so gemeint ist? Ich hätte jetzt eher auf

Gute Frage,

aber "man" erstellt doch eh nicht alle Fenster sofort, sondern erst wenn sie gebraucht werden :stupid:

[Luckie]

Also als Anfänger dürfte es am leichtesten sein, wenn man alle Fenster sofort erstellen lässt von der IDE. Hab eich früher auch immer so gemacht.

[DeddyH]

Das sehe ich genauso.

[gast5]

Zitat:

Zitat von Luckie (Beitrag 1108011)

Also als Anfänger dürfte es am leichtesten sein, wenn man alle Fenster sofort erstellen lässt von der IDE. Hab eich früher auch immer so gemacht.

Und wie geht das?

[mkinzler]

Einfach neues Formular in der IDE erstellen. Es wird dann eine Instanz davon angelegt und automatisch erzeugt, welche man dann mit

Delphi-Quellcode:

<Formx>.Show;

anzeigen lassen kann.
Ggf. muss man noch die Unit in die Quelldatei einbinden.

[gast5]

Ich habe es versucht aber nicht hinbekommen.
Kannst du vielleicht das Projekt hier hochladen? Wäre nett

[DeddyH]

"Datei - Neu - Formular" im bestehenden Projekt aufrufen, damit wird das so angelegte Form (AFAIK auch unter Lazarus) automatisch in die Liste der automatisch zu erzeugenden Formulare aufgenommen. Du musst nun nur noch in der aufrufenden Unit die Unit dieses neuen Formulars in die uses-Klausel aufnehmen. Das sollte im implementation-Abschnitt genügen.

[bcvs]

Zitat:

Zitat von DeddyH (Beitrag 1108081)

"Datei - Neu - Formular" im bestehenden Projekt aufrufen, damit wird das so angelegte Form (AFAIK auch unter Lazarus) automatisch in die Liste der automatisch zu erzeugenden Formulare aufgenommen.

Aber nur, wenn nicht genau das in den Optionen (weiß jetzt auf Anhieb nicht, wo genau) abgeschaltet ist, was bei mir der Fall ist.

[gast5]

:cry:Mein Programm scheint ein Problem damit zu haben dass da TForm1, Form1 und/oder TForm2, Form2 steht. Denn dort treten die Fehler beim kompolieren auf.

[Luckie]

Zitat:

Zitat von gast5 (Beitrag 1108402)

Denn dort treten die Fehler beim kompolieren auf.

Aha. Rat mal was jetzt hilfreich für uns wäre, wenn wir dir helfen sollen. :roll:

[mkinzler]

Zudem weiss wohl keiner was kompolieren ist. :stupid:

[gast5]

Unit1 Quelltext:

Delphi-Quellcode:

unit Unit1; 

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 

var
  Form1: TForm1; 

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin
  var
    Form2: TForm2;
  begin
    Form2 := TForm2.Create(Self);
    try
      Form2.ShowModal;
    finally
      Form2.Free;
end;

end.
Unit2 Quelltext:

Delphi-Quellcode:

unit Unit2; 

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs; 

type
  TForm2 = class(TForm)
  private
    { private declarations }
  public
    { public declarations }
  end; 

var
  Form2: TForm2; 

implementation

{$R *.lfm}

end.

Bei Unit 1 tritt der Fehlerauf: unit1.pas(35,5) Fatal: Syntax error, ";" expected but "identifier FORM2" found

Delphi-Quellcode:

unit Unit1; 

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 

var
  Form1: TForm1; 

implementation

{$R *.lfm}

{ TForm1 }

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

end.

Dort trittt dieser Feehler auf: unit1.pas(34,4) Fatal: Syntax error, ";" expected but "identifier FORM2" found

[Klaus01]

Delphi-Quellcode:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

{ TForm1 }

TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;

var
Form1: TForm1;

implementation
uses
  Unit2;  // <--- neu
{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
var
  Form2: TForm2;
begin
  Form2 := TForm2.Create(Self);
  try
    Form2.ShowModal;
  finally
    Form2.Free;
  end;
end;

end.

Grüße
Klaus

[gast5]

Danke jetzt lässt es sich ohne Probleme kompilieren.:-D :thumb:
Das einzige Problem ist jetzt noch das wenn ich die Anwendung öffne und ich auf den Button klicke kein zweites Fenster geöffnet wird.

[Luckie]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  var
    Form2: TForm2;
  begin
    Form2 := TForm2.Create(Self);
    try
      Form2.ShowModal;
    finally
      Form2.Free;
end;

Eventuell solltest du dir mal ein Grundlagentutorial angucken oder ein Buch für Anfänger lesen. Zumindest den grundlegenden Aufbau einer Prozedur sollte man kennen und wissen was Programmblöcke sind.

[DeddyH]

Wenn ich ja nicht gefragt hätte, ob die Unit eingebunden ist :roll: