Jups, vielen dank es klappt... ihr müßt mich doch nun alle für völlig doof halten....
Naja nun habe ich es verstanden, (und nicht nur doof abgetippt bzw copy & paste)
ist ja auch an sich logisch, wenn man eine var für nen objekt braucht, das man dafr ein dyn array benutzt..
Da war noch ein Kleiner fehler drin, der sender hat bei create gefehlt...
so und für alle die genauso doof wie ich sind und das selbe prblem haben, hier die Komplettlösung:
Delphi-Quellcode:
unit unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, unit2;
// Hier die Unit/Form eintage
// die immer wieder geöffnet werden soll
type
TForm1 =
class(TForm)
ListBox1: TListBox;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
public
end;
var
Form1: TForm1;
FormList:
array of TForm2;
// Ein Array erzeugen mit den Werten von TForm2
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
frm: TForm2;
// Declaration für TForm2
begin
frm := TForm2.Create(self);
// TForm2 Erstellen
frm := frm.Show;
// TForm2 Anzeigen
setlength(FormList, length(FormList)+1);
// Array um ein Element erhöhrn
FormList[high(FormList)] := frm;
end;
end.
unit2:
Delphi-Quellcode:
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls;
type
TForm2 =
class(TForm)
Edit1: TEdit;
RichEdit1: TRichEdit;
Button1: TButton;
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
end.
Noch mal viele Dank anAlle die mir geholfen haben...
Ich gehe mich jetzt erstma ne runde ich die ecke stelen und schämen