Radiobuttons in der Radiogroup deaktivieren

DIABLO23 · Hält's aus hier Beiträge: 6

Hi,

wie deaktiviere ich einzelne Zeilen/Buttons von einer Radiogroup?

MfG Jan

Moderiert von Tino: Titel geändert & Topic verschoben.

joerg68 · Beiträge: 116 Win 2000 D5Enterprise

markieren

Delphi-Quelltext

1:	Button.eanabled := false;

Falls er dann auch nicht zu sehen ist halt noch

markieren

Delphi-Quelltext

1:	Button.visible :=false;

Was Du mit Zeilen meinst müsstest Du genauer erleutern

Gruss
Jörg

Moderiert von Tino: Delphi-Tags hinzugefügt.

Terra23 · Beiträge: 872 Win 8 Delphi 7

joerg68 hat folgendes geschrieben:

Was Du mit Zeilen meinst müsstest Du genauer erleutern

... da tauchen auch schon die ersten Probleme im Verständnis auf. Ich möchte gern bezweifeln, daß es sich bei deiner Lösung um eine Lösung für eine Group-Box handelt. Bei der RadioGroup geht es so meiner Meinung nach nicht. :-)

_________________
Hasta La Victoria Siempre

joerg68 · Beiträge: 116 Win 2000 D5Enterprise

Alternativ könnte man auch die Einträge der Radio je nach den was 'aktiviert' sein soll anzeigen.Wenn es vorher 3 Einträge gab würde das dann so gehen.

markieren

Delphi-Quelltext

1:
2:
3:

RadioGroup1.Items.Clear;
RadioGroup1.Items.Add('erster');
RadioGroup1.Items.Add('Zweiter');

Ich gebe zu das diese Lösung kein deaktiveren im eigentlichen Sinne ist aber wieso dem Anwender einen Eintrag zeigen den er dann noch nicht benutzen kann. Vielleicht reicht Dir ja schon diese (wenn auch zugegeben sehr banal) Lösung

Gruß Jörg

Moderiert von Tino: Code- durch Delphi-Tags ersetzt.

DIABLO23 · Hält's aus hier Beiträge: 6

nee, ich hätte das schon gern so gehabt das man die komplette radiobox noch sieht, man aber einzelne buttons nichtmehr auswählen kann... also so grau hinterlegt, wie als wenn man z.B. die ganze radiogroup deaktiviert

Terra23 · Beiträge: 872 Win 8 Delphi 7

Das geht nicht, glaube ich. Was du aber machen könntest, wäre folgendes:

Wenn du den ersten RadioButton nicht anklickbar haben willst, nimm den nächsten:

markieren

Delphi-Quelltext

1:	If RadioGroup1.ItemIndex=0 Then RadioGroup1.ItemIndex:=1;

Das wäre kurz und schmerzlos..

_________________
Hasta La Victoria Siempre

joerg68 · Beiträge: 116 Win 2000 D5Enterprise

Verwende normale RadioButtons und setze die in eine GroupBox. Jetzt kannst Du jeden einzelnen Radio Button auf enabled false setzen. Das müßte jetzt die Lösung deines Problems sein

Gruss
Jörg

DIABLO23 · Hält's aus hier Beiträge: 6

für die letzte lösung müsst ich mein gesamtes prog wieder umbauen....... is also nich so das wahre... das andre werd ich mal ausprobieren.... aber schonmal danke für eure antworte...

kasi · Beiträge: 37 Win XP D5 Ent

Geht doch

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure TForm1.Button2Click(Sender: TObject);
var
  i: integer;
begin
for i := 0 to RadioGroup1.ControlCount-1 do
  begin
  if (i mod 2) = 0 then
    begin
    TRadioButton(RadioGroup1.Controls[i]).Enabled := true
    end
  else
    begin
    TRadioButton(RadioGroup1.Controls[i]).Enabled := false
    end
  end;
end;

Dies würde z.B. jeden 2. Button deaktivieren

KASI

Moderiert von Tino: Code- durch Delph-Tags ersetzt.

Tino · Beiträge: 9839 Erhaltene Danke: 45 Windows 8.1 Delphi XE4

Etwas kürzer würde es auch gehen:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

var 
  i: integer; 
begin 
  for i := 0 to RadioGroup1.ControlCount-1 do 
    if RadioGroup1.Controls[i] is TRadioButton Then
      TRadioButton (RadioGroup1.Controls[i]).Enabled := (i mod 2) = 0; 
end;

Als Beispiel ist der Sourecode von kasi aber besser.

Gruß
Tino

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme