Скажите в каком направлении развивать мысль???

@poops89 · Регистрация: 07.01.2012

Author24 — интернет-сервис помощи студентам

Уважаемые форумчани, подскажите в какую сторону думать. Есть Edit, RadioGroup, i Button. При выборе одного из пунктов в радиогрупе один эдит стает неактивным, Нужно что бы при нажатии баттона значения считывались с оставшихся активных эдитов?? Можеет что то добавить или как???

вот как реализовал деактирование того эдита что нужно

Delphi

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
 case RadioGroup1.ItemIndex of
 0: begin
    Edit1.Enabled := False;
    label1.Enabled := False;
    Edit2.Enabled := True;
    label2.Enabled := True;
    Edit3.Enabled := True;
    label3.Enabled := True;
    end;
 1: begin
    Edit1.Enabled := True;
    label1.Enabled := True;
    Edit2.Enabled := False;
    label2.Enabled := False;
    Edit3.Enabled := True;
    label3.Enabled := True;
    end;
 2: begin
    Edit1.Enabled := True;
    label1.Enabled := True;
    Edit2.Enabled := True;
    label2.Enabled := True;
    Edit3.Enabled := False;
    label3.Enabled := False;
    end;
 end;
end;

Мне интересно самому реализовать но идею и как спросить у гугла не знаю, тем более что просто я начинающий програмист... Строго не судите!!))

@Alex_pac · 30.03.2012, 20:53

Delphi

procedure TForm1.RadioGroup1Click(Sender: TObject);
var e,l:TControl; i:integer;
begin
  for i := 1 to 3 do begin
     e:=TControl(self.FindComponent('edit'+inttostr(i)));
     l:=TControl(self.FindComponent('label'+inttostr(i)));
     if (e=nil) OR (l=nil) then exit;
     e.Enabled:=(TRadioGroup(Sender).ItemIndex+1=i);
     l.Enabled:=e.Enabled;
  end;
end;

@poops89 · 30.03.2012, 21:21 **[ТС]**

Сообщение от Alex_pac

Delphi

procedure TForm1.RadioGroup1Click(Sender: TObject);
var e,l:TControl; i:integer;
begin
  for i := 1 to 3 do begin
     e:=TControl(self.FindComponent('edit'+inttostr(i)));
     l:=TControl(self.FindComponent('label'+inttostr(i)));
     if (e=nil) OR (l=nil) then exit;
     e.Enabled:=(TRadioGroup(Sender).ItemIndex+1=i);
     l.Enabled:=e.Enabled;
  end;
end;

а не моглибы обьяснить что вы тут зделали так как я написал что я новичок?? На сколько я понял вы цыклом обработали отключение едитов или это и есть ответ ответ????

@Alex_pac · 30.03.2012, 21:52

Delphi

procedure TForm1.RadioGroup1Click(Sender: TObject);
var e,l:TControl; i:integer;
begin
  for i := 1 to 3 do begin // цикл :D
// класс TControl прародитель TEdit и TLabel поэтому его можно использовать
     e:=TControl(self.FindComponent('edit'+inttostr(i))); //ищем компонент с названием edit1 edit2 edit3 ...
// self - это наша любимая Form1 
     l:=TControl(self.FindComponent('label'+inttostr(i))); 
    // во избежания ошибок выходим из процедуры если компонеты не были найдены
     if (e=nil) OR (l=nil) then exit; 
// включаем или выключаем компоненты в зависимости от ItemIndex
     e.Enabled:=(TRadioGroup(Sender).ItemIndex+1=i);
     l.Enabled:=e.Enabled;
  end;
end;

	30.03.2012, 21:52