per buttonklick neues fenster öffnen

[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

[mkinzler]

Poste mal die komplette Unit (Code)

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

[himitsu]

Zitat von DeddyH:

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

Gute Frage,

aber "man" erstellt doch eh nicht alle Fenster sofort, sondern erst wenn sie gebraucht werden

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

[DeddyH]

Das sehe ich genauso.