Ausgeschaltete Items in Radiogroup sollen ToolTips zeigen.

[kagi3624]

Wie im Titel. Wenn ich ein Item auf disabled setze, wird kein tooltip mehr bei Maus darüber führen angezeigt. Kann man das trotzdem irgendwie hinkriegen?

[himitsu]

Alles, was nicht Enabled ist, reagiert nicht auf die Maus und kann somit auch nichts anzeigen.

Panel ohne Rahmen dahinhter und darin der Hint.
Oder im Parent das OnMouseMove verarbeiten, prüfen ob die Maus über einem disableten Child liegt und selbst den Hint manuell anzeigen.

[kagi3624]

Aber ich kann keine Panels in die Radiogroup packen. Muss ich da normales Panel nehmen und normale Radiobuttons darauf packen?

[TiGü]

Panel "HINTER" der Radiogroup!
Reicht dir die DFM oder brauchst du das komplette Projekt zum Nachvollziehen?

Delphi-Quellcode:

object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 336
  ClientWidth = 635
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object RadioGroup1: TRadioGroup
    Left = 76
    Top = 128
    Width = 185
    Height = 105
    Hint = 'Das ist ein Hint! Der wird aber nicht angezeigt!'
    Caption = 'RadioGroup1'
    Enabled = False
    Items.Strings = (
      'Item 1'
      'Item 2'
      'Item 3')
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
  end
  object Panel1: TPanel
    Left = 346
    Top = 135
    Width = 185
    Height = 98
    Hint = 'Das ist der gleiche Hint wie RadioGroup2!'
    BevelOuter = bvNone
    Caption = 'Panel1'
    ParentShowHint = False
    ShowCaption = False
    ShowHint = True
    TabOrder = 1
    object RadioGroup2: TRadioGroup
      Left = 0
      Top = 0
      Width = 185
      Height = 98
      Hint = 'Das ist ein Hint!'
      Align = alClient
      Caption = 'RadioGroup2'
      Enabled = False
      Items.Strings = (
        'Item 1'
        'Item 2'
        'Item 3')
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
    end
  end
end

[Uwe Raabe]

Zitat:

Zitat von kagi3624 (Beitrag 1498535)

Wenn ich ein Item auf disabled setze

Wie soll das denn in einer VCL-TRadioGroup gehen? Die Items dort sind doch nur als String-Liste vorhanden und lassen sich nicht einzeln disablen. Vielleicht solltest du doch besser ein Beispielprojekt anhängen.

[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 ;-)