1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
| procedure TMain.Button2Click(Sender: TObject);
var
I, J: Integer ;
begin
J:= 0;
J := Screen.FormCount;
memo2.Lines.Add('Il y a '+inttostr(j)+ ' fiches.');
for I := 0 to Screen.FormCount-1 do
begin
memo2.Lines.Add(Screen.Forms[I].Name); // indique le nom.
// Confirme ou non que celles qui me concernent ont "Name" à "Synthese_PV_MV".
If Pos('Synthese_PV_MV', (Screen.Forms[I].Name)) = 1
then memo2.Lines.Add('OUI')
else memo2.Lines.Add('non');
// Ne pas oublier de tester le début de "name".
// En effet au fur et à mesure qu'elles sont créées, elles sont indicées.
// De plus les fiches peuvent être dans le désordre.
If ((Screen.Forms[I].Name) = ('Synthese_PV_MV'))
then memo2.Lines.Add('Il y a en numéro '+ inttostr(i)); // on peut indiquer leur numéro.
// Ensuite on peut fermer celles qui me concernent.
If Pos('Synthese_PV_MV', (Screen.Forms[I].Name))=1
then Screen.Forms[I].Close;
end;
end; |