per buttonklick neues fenster öffnen

[DeddyH]

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

[gast5]

Zitat von DeddyH:

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

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

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

[mkinzler]

Poste mal die komplette Unit (Code)