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.

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

Der Code ist aber großteils kompatibel...

markieren

Delphi-Quellcode:

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

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

zusammenfalten · markieren

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.

markieren

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

markieren

Delphi-Quellcode:

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

und irgendwann dann ein
MyForm2.Free;

Zitat:

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

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

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

markieren

Delphi-Quellcode:

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

getippt.

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?

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

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

code:

markieren

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:

zusammenfalten · markieren

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:

markieren

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:

markieren

Delphi-Quellcode:

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

Zitat:

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

Zitat von DeddyH:

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

Ja ist es