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