eine Form mehrfach öffnen

[mkinzler]

Dann sollte man aber auch keinen Owner angeben. Zudem würde ich dann FreeAndNil() verwenden.

[omata]

Formulare werden mit Release freigegeben und nicht mit Free.

[Hansa]

Moin,

was ihr hier treibt gefällt mir nicht. Form-Array, beim Create als Sender was angeben, warum das ? Jo und noch Holzhammer a la Random.

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    btn1: TButton;
    procedure btn1Click(Sender: TObject);
  private
    { Private-Deklarationen }
    procedure frmxClose(Sender: TObject; var Action: TCloseAction);
  public
    { Public-Deklarationen }
end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
var i,x,y : Integer;
    NewForm : TForm;
begin
  for i := 1 to 7 do begin
    NewForm := TForm.Create (Self);
    NewForm.Name := 'frm' + IntToStr(i);
    NewForm.Caption := 'Form Nr.: ' + IntToStr(i);
    NewForm.Left := i * 100;
    NewForm.Top := i * 50;
    NewForm.OnClose := frmxClose;
    NewForm.Show;
  end;
end;

Da ist vorerst jetzt Schluss. Rest ist im Anhang (also komplettes Projekt). Wegen der bevorstehenden Delphi-Tage will ich die Download-Zahl sehen. Das sind immer solche Themen, über die man schön streiten kann. Au Mann, das geht ja nur gezippt.

[Matze]

Zitat von Hansa:

[...] beim Create als Sender was angeben, warum das ?

Das ist der Owner und sobald der z.B. beim Beenden freigegeben wird, gibt er die erzeugten Objekte (hier: Buttons) auch frei.
Das ergibt schon Sinn.

[mkinzler]

Wenn man sich eine Form automatisch erzeugen lässt ist das dann Application

@Hansa:
-Wenn er ein zufällige Größen der Fenster haben will, warum nicht?
-Bei deiner Lösung werden die Fenster beim Schliessen gleich wieder freigegeben, was nicht unbedingt erwünscht ist.
-Man kann nicht mehr auf die Instanzen zugreifen, da keine Referenzen mehr existieren

[xZise]

Moin Hansa,
was hast du jetzt bahnbrechendes gezeigt

MfG
Fabian