:Приветсвую
Вот есть у меня две формы со дефолтными именами (Form1 и Form2). На Form1 кидаю кнопку, при нажатии на кнопку создаю форму, подобную Form2:
| Код |
procedure TForm1.Button1Click();
var
BF: TForm2;
begin
Inc(Count);
BF:=TForm2.Create(nil);
BF.Name:='BF'+IntToStr(Count);
BF.Show;
end;
|
На Form1 есть еще кнопка, при нажатии на которую надо вывести мессагу, в которой указать сколько существует таких BF-форм. Пробую так:
| Код |
procedure TForm1.Button2Click();
var
Comp: TComponent;
I,A: Integer;
begin
A:=0;
For I:=1 to Count do
begin
Comp:=FindComponent('BF'+IntToStr(I))as TForm2;
if not(Comp=nil) then Inc(A);
end;
ShowMessage(IntToStr(A));
end;
|
Дык вот все время 0 показывает. |