TMenuItem OnMeasureItem/WM_MEASUREITEM zur Laufzeit auslösen

[Meta777]

huhu, auch wenn 's Topic schon einige Jahre alt; hier meine "Lösung" (vllt. hat jmd. mal ein ähnliches Problem):

Diese procedure rufe ich im FormShow auf:

Delphi-Quellcode:

procedure pmHideShowMainMenu(AMainMenu: TMainMenu);
var
  i: Integer;
begin
  for i := 0 to AMainMenu.Items.Count-1 do begin
    if AMainMenu.Items[i].Visible then begin//um keine unsichtbaren Menüpunkte zu zeigen
      AMainMenu.Items[i].Visible := False;
      AMainMenu.Items[i].Visible := True;
    end;
  end;
end;

dadurch wird das zuvor gesetzte OnMeasureItem-Event ausgelöst.

Shalom