OrangeUI RadioButton

[ikurt07]

Selamlar

Bir  Sınav uygulaması yapmaya çalışıyorum....

OrangeUI  ListBox içine RadioButto ile şıklları kodum 
Girilen değeri nasıl alabilirim

[elixir84]

(02-07-2024, Saat: 14:56)ikurt07 Adlı Kullanıcıdan Alıntı: Selamlar

Bir  Sınav uygulaması yapmaya çalışıyorum....

OrangeUI  ListBox içine RadioButto ile şıklları kodum 
Girilen değeri nasıl alabilirim

Soruyu görselle desteklermisin tam olarak anlaşılmıyor. Radiobutonunda girilen bir değer yok hangi radiobutonun tıklandığını mı anlamak istiyorsun.

[ikurt07]

(02-07-2024, Saat: 16:20)elixir84 Adlı Kullanıcıdan Alıntı:

(02-07-2024, Saat: 14:56)ikurt07 Adlı Kullanıcıdan Alıntı: Selamlar

Bir  Sınav uygulaması yapmaya çalışıyorum....

OrangeUI  ListBox içine RadioButto ile şıklları kodum 
Girilen değeri nasıl alabilirim

Soruyu görselle desteklermisin tam olarak anlaşılmıyor. Radiobutonunda girilen bir değer yok hangi radiobutonun tıklandığını mı anlamak istiyorsun.

   

---

[quote pid='55626' dateline='1719926449']
Burada ListBox 1 nolu RB ye bastığımda tüm itemlarda check true oluyor   
[/quote]

---

Şimdilik böyle çözdüm bakalım sorun olacak mı

procedure TFrmDegerlendirme.lbAnketPrepareDrawItem(Sender: TObject;
ACanvas: TDrawCanvas; AItemDesignerPanel: TSkinFMXItemDesignerPanel;
AItem: TSkinItem; AItemDrawRect: TRect);
begin
Self.r1.Prop.StaticChecked:=AItem.Detail1 = '1';
Self.r2.Prop.StaticChecked:=AItem.Detail1 = '2';
Self.r3.Prop.StaticChecked:=AItem.Detail1 = '3';
Self.r4.Prop.StaticChecked:=AItem.Detail1 = '4';
Self.r5.Prop.StaticChecked:=AItem.Detail1 = '5';
end;

procedure TFrmDegerlendirme.r1Click(Sender: TObject);
begin
if Self.lbAnket.Properties.InteractiveItem<>nil then
begin
if Sender = r1 then
Self.lbAnket.Properties.InteractiveItem.Detail1 := '1';
if Sender = r2 then
Self.lbAnket.Properties.InteractiveItem.Detail1 := '2';
if Sender = r3 then
Self.lbAnket.Properties.InteractiveItem.Detail1 := '3';
if Sender = r4 then
Self.lbAnket.Properties.InteractiveItem.Detail1 := '4';
if Sender = r5 then
Self.lbAnket.Properties.InteractiveItem.Detail1 := '5';
end;
end;

[RAD Coder]

(02-07-2024, Saat: 16:47)ikurt07 Adlı Kullanıcıdan Alıntı: Şimdilik böyle çözdüm bakalım sorun olacak mı

procedure TFrmDegerlendirme.lbAnketPrepareDrawItem(Sender: TObject;
 ACanvas: TDrawCanvas; AItemDesignerPanel: TSkinFMXItemDesignerPanel;
 AItem: TSkinItem; AItemDrawRect: TRect);
begin
   Self.r1.Prop.StaticChecked:=AItem.Detail1 = '1';
   Self.r2.Prop.StaticChecked:=AItem.Detail1 = '2';
   Self.r3.Prop.StaticChecked:=AItem.Detail1 = '3';
   Self.r4.Prop.StaticChecked:=AItem.Detail1 = '4';
   Self.r5.Prop.StaticChecked:=AItem.Detail1 = '5';
end;

procedure TFrmDegerlendirme.r1Click(Sender: TObject);
begin
if Self.lbAnket.Properties.InteractiveItem<>nil then
 begin
   if Sender = r1 then
     Self.lbAnket.Properties.InteractiveItem.Detail1 := '1';
   if Sender = r2 then
     Self.lbAnket.Properties.InteractiveItem.Detail1 := '2';
   if Sender = r3 then
     Self.lbAnket.Properties.InteractiveItem.Detail1 := '3';
   if Sender = r4 then
     Self.lbAnket.Properties.InteractiveItem.Detail1 := '4';
   if Sender = r5 then
     Self.lbAnket.Properties.InteractiveItem.Detail1 := '5';
 end;
end;

OnPrepareDrawItem, çok yoğun çalışan bir event'tır. Çok zor durumda kalmadığınız sürece kullanmanızı önermem.
Aşağıdaki gibi daha sade ve kolay bir şekilde amaca uygun kullanbilirsiniz.

   

   

Not: Tüm SkinFMXRadioButton'ların OnStayClick olayına, rbA OnStayClick olayı atanmıştır.
        Her radiobutton un tag değerine, sayısal bir değer atanmıştır (rbA=1,..rbAE=5).