per buttonklick neues fenster öffnen

[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