Hangi radiobutton seçili

[lom]

Merhabalar arkadaşlar. GroupBox içinde 25 tane radio butonum var. Bunların içinden hangisinin seçili olduğu kısa bişekilde nasıl yapabilirim ? Teşekkürler kolay gelsin

[bgoktas]

Group box yerine radiogroup kullanın. RadioGroup

[sabanakman]

İlla grup içindekini bulmak istersen bunu bir fonksiyonla halledebilirsin.

Kod: Tümünü seç

function GruptaSeciliRadio(const Grup:TWinControl):TRadioButton;
var i:Integer;
begin
  for i:=0 to Grup.ControlCount-1 do begin
    if Grup.Controls[i] is TRadioButton then begin
      Result:=TRadioButton(Grup.Controls[i]);
      if Result.Checked then Exit;
    end;
  end;
  Result:=nil;
end;

Gibi bir fonksiyonu kullanabilirsin. Örnek kullanımı ise

Kod: Tümünü seç

var rb:TRadioButton
begin
.
.
.
  rb:=GruptaSeciliRadio(GroupBox1);
  if Assigned(rb) then ShowMessage(rb.Name);
.
.
end;

şeklinde olabilir.

Düzeltme:Bu fonksiyona parametre olarak TGroupBox verildiği gibi TPanel, TScroolBox, TForm gibi nesnelerde verilebilir. Sebebi tüm bu sınıfların TWinControl sınıfından türemiş olmasıdır. İyi çalışmalar.

[lom]

Hocam ilginize tşk ederim. RadioGrup'a çevirdim. Ancak onu da beceremedim

Kod: Tümünü seç

for i := 0  to 25 do
begin
 if RadioGroup1.ItemIndex[i].Checked  then
 showmessage(inttostr(i));
 break;
end;

şeklinde yapmaya çalıştım ama olmadı. Bu kod üzerinde yardımcı olabilirmisiniz ? Teşekkürler

[lom]

Kod: Tümünü seç

for i := 0  to 25 do 
begin 
 if RadioGroup1.ItemIndex[i].Checked  then 
 showmessage(inttostr(i+1)); 
end;

Bu şekilde çözdüm arkadaşlar saolasın tekrar...

[bgoktas]

Kod: Tümünü seç

radiobutton1.itemindex

direk check = true olanı verir

[Jire]

Bence GroupBox yerine RadioBox açabilirsin ardından onun için bir variable açarsın sonra ItemIndex procedure ile hangisinin seçili olduğunu bulursun

procedure BtnClick;
var
sayi : integer;
begin
sayi := RadioBox1.ItemIndex;
ShowMessage(IntToStr(Sayi) + 'Numaralı kutu seçilmiştir');
end;