Delphi 2010 пересчитать все формы проекта программно.

[Человек_Борща]

Доброго времени суток

Собственно вопрос, хочется реализовать что-то вроде такого:

for i:= 0 to FormsCount do
begin
Form[i].ShowHint:=True;
end;

в проекте 25 форм.
И не хочется делать так:

Form1.ShowHint:=ChackBox1.checked;
Form2.ShowHint:=ChackBox1.checked;
Form3.ShowHint:=ChackBox1.checked;
Form4.ShowHint:=ChackBox1.checked;
FormN.ShowHint:=ChackBox1.checked;
...
Form25.ShowHint:=ChackBox1.checked;

У Application смотрел, нету такого.
А creen не одходит т.к. перечсчитывает только те окна что на экране

[Аватар]

Уже созданные формы можно с использованием Application.Components и Application.ComponentCount, при условии, что при создании формы было Create(Application). А при создании новой ShowHint нужно присваивать

UPD
Не забыть Application.Components[i] is TForm

[Человек_Борща]

Ага=)

var
  Form2: TForm2;

implementation

uses
  Unit3,
  Unit4,
  Unit5;
{$R *.dfm}

procedure TForm2.Button3Click(Sender: TObject);
begin
  Form3.Show;
end;

procedure TForm2.Button4Click(Sender: TObject);
begin
  Form4.Show;
end;

procedure TForm2.Button5Click(Sender: TObject);
begin
  Form5.Show;
end;

procedure TForm2.Button6Click(Sender: TObject);
var
  i: Integer;
begin
  For i := 0 to Application.ComponentCount - 1 do
  begin
    If Components[i].ClassType = TForm then
    begin
    (Components[i] as TForm).ShowHint := True;
    end;
  end;
end;

end.

Не работает, может что-то не так?

[Аватар]

Ваш Components[i].ClassType относится к Form2, а не к Application

upd
а если форма будет унаследована не от TForm, а от его потомка то Application.Components[i] is TForm будет корректно, а Application.Components[i].ClassType = TForm???

[eduard93]

Вообще то Screen перечисляет как раз все созданные в данный момент формы (кроме доков).

[Serge_Bliznykov]

Сообщение от Аватар

Ваш Components[i].ClassType относится к Form2, а не к Application

позволю себе прокомментировать абсолютно верное замечание Аватар исправленным кодом:

  For i := 0 to Application.ComponentCount - 1 do
  begin
    If Application.Components[i].ClassType = TForm then
    begin
    (Application.Components[i] as TForm).ShowHint := True;
    end;
  end;

p.s. разумеется, я не проверял...

[Человек_Борща]

eduard93, Спасибо!

сработал такой код:

procedure TForm2.Button6Click(Sender: TObject);
var
  i:SmallInt;
begin
  For i:=0 To Screen.FormCount -1 do
  begin
    Screen.Forms[i].ShowHint:=true;
  end;
end;

и спасибо справке:

Сообщение от Delphi Help

Read FormCount to learn the number of forms currently displayed on the screen. These forms can be accessed by the Forms property. FormCount can be used with Forms to iterate over all the forms in an application.

чтобы убедиться, я помучал себя, создал 4 формы и на первой положил 5 кнопок.
Далее:

implementation

uses Unit2,Unit3,Unit4;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
Form2.Show;
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
Form3.Show;
end;

procedure TForm2.Button3Click(Sender: TObject);
begin
Form4.Show;
end;

procedure TForm2.Button4Click(Sender: TObject);
var
  i:SmallInt;
begin
  For i:=0 To Screen.FormCount -1 do
  begin
    Screen.Forms[i].ShowHint:=true;
  end;
end;

procedure TForm2.Button5Click(Sender: TObject);
begin
If Form1.ShowHint then
Label1.Caption:='1'
else
begin
 Label1.Caption:='0';
end;

If Form2.ShowHint then
Label2.Caption:='1'
else
begin
 Label2.Caption:='0';
end;

If Form3.ShowHint then
Label3.Caption:='1'
else
begin
 Label3.Caption:='0';
end;

If Form4.ShowHint then
Label4.Caption:='1'
else
begin
 Label4.Caption:='0';
end;
end;

end.

не показывая формы 2,3,4 тыкнул выставить всем ShowHint:=True далее тыкнул кнопку и все метки изменились на 1=)