per buttonklick neues fenster öffnen

[Klaus01]

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
uses
  Unit2;  // <--- neu
{$R *.lfm}

{ TForm1 }

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

end.

Grüße
Klaus

[Luckie]

Delphi-Quellcode:

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

Eventuell solltest du dir mal ein Grundlagentutorial angucken oder ein Buch für Anfänger lesen. Zumindest den grundlegenden Aufbau einer Prozedur sollte man kennen und wissen was Programmblöcke sind.

[DeddyH]

Wenn ich ja nicht gefragt hätte, ob die Unit eingebunden ist