Formular mehrmals öffnen

[bezarre]

Hallo,

ich habe ein Formular das man mehrmals öffnen können soll.
Bisher habe ich das immer so gemacht:

Delphi-Quellcode:

procedure TForm2.Umbennen1Click(Sender: TObject);
begin
  Form6.load_alias(ListView1.ItemIndex);
  Form6.Show;
end;

Aber so wird das Fesnter ja immer wieder überschrieben. Es soll aber jedes Mal ein neues geöffnet werden. Wie mach ich das.

Gruß
Micha

[himitsu]

In Form6 steckt eine automatisch erzeugte Instanz deines Formulars TForm6
und dieses kann nur einmal angezeigt werden.

Willst du dieses Formular mehrmals gleichzeitig anzeigen, dann mußt du dir auch mehrere Instanzen erzeugen.

Delphi-Quellcode:

var F: TForm6;

F := TForm6.Create(...);
F.Show;

F.Free;

Statt F kannst du z.B. ein Array oder irgendeine andere (Object)Liste nehmen, um mehrere Instanzen zu speichern.

[bezarre]

Hallo,

dankeschön

Hier wird man ja richtig gebildet.

Gruß
Micha

[bezarre]

Hallo,

irgendwie passt das aber doch noch nicht so ganz.

Delphi-Quellcode:

procedure TForm2.Umbennen1Click(Sender: TObject);
begin
  umbenennen[ListView1.ItemIndex] := TForm6.Create(self);
  umbenennen[ListView1.ItemIndex].load_alias(ListView1.ItemIndex);
  umbenennen[ListView1.ItemIndex].Show;
end;

So sieht das jetzt bei mir aus. Ich kann zwar jetzt mehrere Fenster öffnen, aber die an load_alias übergebene ID verändert sich jedes mal beim öffnen eines neuen Fensters.

Soll heißen, ich öffnen ein Fenster(F1) und übergebe die ID 4, dann öffnen ich ein weiteres Fenster(F2) und übergebe 9. Nun hat F1 auch die ID 9.
Wie kann ich das ändern?

Load Alias speichert die ID einfach nur in einer globalen Variable von Form6 ab.

Gruß
Micha

[DeddyH]

Zitat von bezarre:

Load Alias speichert die ID einfach nur in einer globalen Variable von Form6 ab.

Damit hast Du doch indirekt bereits die Antwort gegeben. Mach aus der globalen Variablen eine Property des Forms, dann hat jede Instanz ihre eigene ID.

[bezarre]

Hallo,

mit Propertys habe ich mich bisjetzt noch garnicht beschäftigt, aber danke. Es klappt damit

Gruß
Micha