TMenuItem: Checked wird nicht dargestellt

[Geronimo]

Das Thema ist zwar schon alt, aber vielleicht kann es ja jemand gebrauchen.
Mein Ansatz wäre den Checked-Haken in der Caption nachzubilden.

Gruß
Geronimo

Code:

procedure TMenuItem.SetChecked(Value: Boolean);
begin
  //Orginal Code from VCL

  if FChecked then Caption := Caption + ' ✓'
  else
    Caption := StringReplace(Caption,' ✓','',[rfReplaceall]);
  end;
end;