Einzelnen Beitrag anzeigen

Delphi.Narium

Registriert seit: 27. Nov 2017
2.447 Beiträge
 
Delphi 7 Professional
 
#5

AW: Ausgeschaltete Items in Radiogroup sollen ToolTips zeigen.

  Alt 2. Dez 2021, 10:28
Es geht (glaub' ich) nicht um den Hint der RadioGroup, sondern um den Hint zu einem einzelnen Item. Sowas in der Art:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var
  i : Integer;
begin
  for i := 0 to RadioGroup1.Items.Count - 1 do begin
    RadioGroup1.Buttons[i].Hint := Format('Item Nr. %d ist enabled (%s)',[i,RadioGroup1.Items[i]]);
    RadioGroup1.Buttons[i].ShowHint := true;
  end;
end;

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
  RadioGroup1.Buttons[RadioGroup1.ItemIndex].Hint := Format('Item Nr. %d ist disabled (%s)',[RadioGroup1.ItemIndex,RadioGroup1.Items[RadioGroup1.ItemIndex]]);
  RadioGroup1.Buttons[RadioGroup1.ItemIndex].Enabled := False;
end;
Und (vermutlich) sollen die Hints zu den einzelnen Buttons auch dann angezeigt werden, wenn die Buttons disabled sind.

Und damit geht genau das:
Zitat:
Die Items dort sind doch nur als String-Liste vorhanden und lassen sich nicht einzeln disablen.
Sie lassen sich einzeln disablen

Geändert von Delphi.Narium ( 2. Dez 2021 um 10:29 Uhr) Grund: Text ergänzt.
  Mit Zitat antworten Zitat