Ausgeschaltete Items in Radiogroup sollen ToolTips zeigen.

[Delphi.Narium]

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