Einzelnen Beitrag anzeigen

DarkItachi

Registriert seit: 28. Dez 2009
Ort: Berlin
130 Beiträge
 
Delphi 2007 Enterprise
 
#1

Function mehrmals ausführen (For each?)

  Alt 12. Jan 2010, 20:52
Hallöchen!

Ich mache es kurz:

Ich habe eine Listview mit mehreren Items drin..
Wenn ein Item ausgewählt ist, dann öffnet sich auch nur ein Fenster..
Delphi-Quellcode:
Form3.Create(self);
var createform3 : TForm3;
begin
if listview1.SelCount= 1 then begin
createform3:= Form3.Create(self);
createform3.Show;
createform3.Caption:= listview1.Selected.SubItems.Strings[1];
end;
Ok, dass ist ganz einfach gewesen für mich!

Jetzt habe ich eingestellt, dass man mehrere Items in Listview auswählen kann.
Wenn man jetzt auf 'preview' drückt, dann soll auch für jedes ausgewähltes Item ein Fenster öffnen!
Ich habe das zuerst so versucht:
Delphi-Quellcode:
if Listview1.SelCount> 1 then begin
  createform3:= Form3.Create(self);
Listview1.SelCount * createform3.Show;
for each...?
Wie kann ich denn jetzt für jedes item eine eigene Form öffnen? Mit eigener Caption?
Ich weiß das dieses Multiplikationszeichen nicht anwendbar ist, aber mir ist nicht anderes eingefallen?

Kann mir mal wieder jemand helfen?^^

MfG
Developer since age 14
  Mit Zitat antworten Zitat