GroupBox

[ITanyshka]

Кто знает, что нужно применить для GroupBox, если для form1.ComboBox1.itemindex;. что подставить сюда form1.GroupBox1......; - ?
Подскажите плизз... очень срочно надо

[MihalNik]

ItemIndex точно такое свойство у RadioGroup
Используйте его

[ITanyshka]

но оно не проходит и выдает ошибку
[Error] Unit1.pas(261): Undeclared identifier: 'itemIndex'

[Xardas]

Что именно Вы хотите сделать с групбоксом?

[ITanyshka]

ItemIndex точно такое свойство у RadioGroup
Используйте его

Но мне нужно имено Groupbox.....
А может подскажите как делать если на GroupBox расположены CheckBox, и как реализовать код если сначала обращатсь к groupbox а потом уже к конкретному chekbox? Помогите....

[ITanyshka]

Что именно Вы хотите сделать с групбоксом?

У меня тема обмен валют, в Radiobox я выбираю какую имено мне нужно перевести валюту, а у groupbox - выбераю в какие валюты с помощю checkbox.

[MihalNik]

Нужно обращаться напрямую к checkbox.Checked

[ITanyshka]

Нужно обращаться напрямую к checkbox.Checked

Всміысле вот так:

procedure TForm1.Button1Click(Sender: TObject);
var   sum:real;
dol,eur,ru,azm,gbp,dkk,lvl,pln,chf:real;
begin
  mmo1.Clear;
  begin
       if RadioGroup1.ItemIndex = 0 Then
         sum:=sum * dol
       else
       if RadioGroup1.ItemIndex = 1 Then
         sum:=sum * eur
       else
       if RadioGroup1.ItemIndex = 2 Then
         sum:=sum * ru
          else
        if RadioGroup1.ItemIndex = 3 Then
         sum:=sum * azm
       else
       if RadioGroup1.ItemIndex = 4 Then
         sum:=sum * gbp
       else
       if RadioGroup1.ItemIndex = 5 Then
         sum:=sum * dkk
       else
       if RadioGroup1.ItemIndex = 6 Then
         sum:=sum * lvl
       else
       if RadioGroup1.ItemIndex = 7 Then
         sum:=sum * pln
       else
       if RadioGroup1.ItemIndex = 8 Then
         sum:=sum * chf;

       if (chk7.Checked) Then
         mmo1.Lines.Add(FloatToStr(sum / dol));

       if (chk8.Checked) Then
         mmo1.Lines.Add(FloatToStr(sum / eur));

       if (chk9.Checked) Then
         mmo1.Lines.Add (FloatToStr(sum / ru));

         if (chk1.Checked) Then
         mmo1.Lines.Add(FloatToStr(sum / azm));

         if (chk2.Checked) Then
         mmo1.Lines.Add(FloatToStr(sum / gbp));

         if (Chk3.Checked) Then
         mmo1.Lines.Add(FloatToStr(sum / dkk));

         if (chk4.Checked) Then
         mmo1.Lines.Add (FloatToStr(sum / lvl));

         if (chk5.Checked) Then
         mmo1.Lines.Add( FloatToStr(sum / pln));

         if (chk6.Checked) Then
         mmo1.Lines.Add(FloatToStr(sum / chf));

       if (chk10.Checked) Then
         mmo1.Lines.Add( FloatToStr(sum));

       if not(chk7.Checked) and not(chk8.Checked) and not(chk9.Checked)
       and not(chk1.Checked) and not(chk2.Checked) and not(chk3.Checked)
       and not(chk4.Checked) and not(chk5.Checked)
       and not(chk6.Checked)and not(chk10.Checked) Then
       begin
         mmo1.Lines.Add('Ваші переведені гроші:');
          mmo1.Lines.Add('Долар'+floattostr(sum / dol));
         mmo1.Lines.Add('Євро'+floattostr(sum / eur));
         mmo1.Lines.Add('Рубль'+floattostr(sum / ru));
         mmo1.Lines.Add('Манат'+floattostr(sum / azm));
         mmo1.Lines.Add('Фунт стерлінг'+floattostr(sum / gbp));
         mmo1.Lines.Add('Крона'+floattostr(sum / dkk));
         mmo1.Lines.Add('Лат'+floattostr(sum / lvl));
         mmo1.Lines.Add('Золотий'+floattostr(sum / pln));
         mmo1.Lines.Add('Франк'+floattostr(sum / chf));
         mmo1.Lines.Add('гривня'+floattostr(sum));
       end;
     end;

[Xardas]

 if not(chk7.Checked) and not(chk8.Checked) ......

Там явно лишнее

[ITanyshka]

if not(chk7.Checked) and not(chk8.Checked) ......

Это я сделала для того если не выбран ни один checkbox то что бы выводило все переведёные купюры.
А так впринцепи идея правельная?