per buttonklick neues fenster öffnen

[gast5]

Zitat von 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.

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 <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 von 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.

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]

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 von gast5:

Denn dort treten die Fehler beim kompolieren auf.

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

[mkinzler]

Zudem weiss wohl keiner was kompolieren ist.

[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