VPF::Много форм, на каждой один и тот же компонент.

-Сергей-

Дата 18.8.2003, 12:17 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 224
Регистрация: 2.8.2003
Где: Россия

Репутация: нет
Всего: 1

Помогите разобраться.
Есть прога с количеством форм 5, 10, 15, неважно, допустим 7 и на каждой форме есть компонент Radiobutton обозванный prav.
Так вот, как пробежаться по всем формам и проверить что он там включен, и если он на какой-то форме включен, то присваиваем числовому значению sum:=sum+1;
Начало есть, помогите добить plz.

Код


var
 c,sum:integer;
begin
  sum:=0;
  for c:=1 to 7 do
    begin
      with Application.FindComponent('v1v'+inttostr(c)) as TForm do
        // помогите дописать
        // вариант1 if 'v1v'+inttostr(c).prav.checked then sum:=sum+1; выкинул
        // вариант2 if findcomponent('prav').checked then sum:=sum+1;  тоже облом
end;

Знаю, что разгадка близко, но где

--------------------

Для утвердительного ответа достаточно лишь одного слова - "да". Все прочие слова придуманы, чтобы сказать "нет".

<Spawn>

Дата 18.8.2003, 14:16 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64

Попробуй так:

Код

procedure TForm1.Button1Click(Sender: TObject);
var
Component:TComponent;
i, Sum:integer;
begin
Sum:=0;
for i:=0 to 6 do
 begin
  Component:=Screen.Forms[i].FindComponent('prav');
  if Component is TRadioButton then
   Sum:=Sum+Integer(TRadioButton(Component).Checked);
  end;
ShowMessage(IntToStr(Sum))
end;

--------------------

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

<Spawn>

Дата 18.8.2003, 14:24 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64

Если использовать начало твоего кода, то можно сделать так:

Код

procedure TForm1.Button1Click(Sender: TObject);
var
Component:TComponent;
i, Sum:integer;
begin
Sum:=0;
for i:=0 to 6 do
 with Application.FindComponent(Format('Form%d',[i+1])) as TForm do
  begin
   Component:=FindComponent('prav');
   if Component is TRadioButton then
    Sum:=Sum+Integer(TRadioButton(Component).Checked);
  end;
ShowMessage(IntToStr(Sum))
end;

Это сообщение отредактировал(а) <Spawn> - 18.8.2003, 14:24

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »