Hi Leute,<br><br>
wie kann ich ein modales Fenster Schließen? Folgende Procedure wird von einem Timer aufgerufen. Es werden auch alle Fenster (Außer Form1 und Form3 natürlich ;-)) fein geschlossen, nur leider die Modalen nicht. In der Hilfe steht, mit ModalResult <> 0 kann man ein Models Fenster schließen.<br><br>
Procedure TForm1.CloseAllWindows;<br>
var<br>
i : integer;<br>
begin<br>
for i := 0 to Application.ComponentCount -1 do<br>
begin<br>
If (TForm(Application.Components[I]).Name <> '') and<br>
(TForm(Application.Components[I]).Name <> 'Form1') and<br>
(TForm(Application.Components[I]).Name <> 'Form3') then<br>
begin<br>
if TForm(Application.Components[I]).Visible then<br>
begin<br>
TForm(Application.Components[I]).ModalResult := 1;<br>
TForm(Application.Components[I]).Close;<br>
end;<br>
end;<br>
end;<br>
end;<br>
Gruß Frank
wie kann ich ein modales Fenster Schließen? Folgende Procedure wird von einem Timer aufgerufen. Es werden auch alle Fenster (Außer Form1 und Form3 natürlich ;-)) fein geschlossen, nur leider die Modalen nicht. In der Hilfe steht, mit ModalResult <> 0 kann man ein Models Fenster schließen.<br><br>
Procedure TForm1.CloseAllWindows;<br>
var<br>
i : integer;<br>
begin<br>
for i := 0 to Application.ComponentCount -1 do<br>
begin<br>
If (TForm(Application.Components[I]).Name <> '') and<br>
(TForm(Application.Components[I]).Name <> 'Form1') and<br>
(TForm(Application.Components[I]).Name <> 'Form3') then<br>
begin<br>
if TForm(Application.Components[I]).Visible then<br>
begin<br>
TForm(Application.Components[I]).ModalResult := 1;<br>
TForm(Application.Components[I]).Close;<br>
end;<br>
end;<br>
end;<br>
end;<br>
Gruß Frank
Comment