Einzelnen Beitrag anzeigen

Rifman

Registriert seit: 21. Mär 2008
Ort: Frankfurt am Main
54 Beiträge
 
Delphi 5 Standard
 
#1

Überprüfen, ob ein Formular offen ist

  Alt 9. Apr 2008, 12:11
Hallo,

auf MainForm habe ich einen Button und eine Liste erstellt. Wenn auf den Button gedrückt wird, werden je nachdem wieviele einträge in der List sind, auch soviele Forms mit TStringGrid aufgehen.
Wie kann ich das jetzt so machen, dass es vorher überprüft wird ob es Forms schon offen sind, die der Anzahl der Einträge entspricht, wenn ja dann die vorhandenen TStringGrid's löschen, wenn nein dann neu erstellen.
Bisher habe ich das so gemacht:
Delphi-Quellcode:
var
FormArray :array of TForm1;
...
procedure TMainForm.Button1Click(Sender: TObject);
begin
For i := 0 To MBListBox.items.Count - 1 Do
          Begin
            FormArray[i] := TForm1.Create(self);
            FormArray[i].show;
          End;
          
End;
Danke.

[edit=SirThornberry]Titel korrigiert - Mfg, SirThornberry[/edit]
  Mit Zitat antworten Zitat