![]() |
Formular mehrmals öffnen
Hallo,
ich habe ein Formular das man mehrmals öffnen können soll. Bisher habe ich das immer so gemacht:
Delphi-Quellcode:
Aber so wird das Fesnter ja immer wieder überschrieben. Es soll aber jedes Mal ein neues geöffnet werden. Wie mach ich das.
procedure TForm2.Umbennen1Click(Sender: TObject);
begin Form6.load_alias(ListView1.ItemIndex); Form6.Show; end; Gruß Micha |
Re: Formular mehrmals öffnen
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:
Statt F kannst du z.B. ein Array oder irgendeine andere (Object)Liste nehmen, um mehrere Instanzen zu speichern.
var F: TForm6;
F := TForm6.Create(...); F.Show; F.Free; |
Re: Formular mehrmals öffnen
Hallo,
dankeschön :-) Hier wird man ja richtig gebildet. Gruß Micha |
Re: Formular mehrmals öffnen
Hallo,
irgendwie passt das aber doch noch nicht so ganz.
Delphi-Quellcode:
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.
procedure TForm2.Umbennen1Click(Sender: TObject);
begin umbenennen[ListView1.ItemIndex] := TForm6.Create(self); umbenennen[ListView1.ItemIndex].load_alias(ListView1.ItemIndex); umbenennen[ListView1.ItemIndex].Show; end; 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 |
Re: Formular mehrmals öffnen
Zitat:
|
Re: Formular mehrmals öffnen
Hallo,
mit Propertys habe ich mich bisjetzt noch garnicht beschäftigt, aber danke. Es klappt damit :-) Gruß Micha |
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:50 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz