AppendMenu mit BOLD

[Daniel Schuhmann]

Der Thread hat zwar schon sooo nen Bart, aber ich hab grade das selbe Problem gehabt, und Luckie hat mich auf den richtigen Weg geführt. Ich möchte die Lösung keinem vorenthalten.

Delphi-Quellcode:

const
  IDM_CONFIG     = 201;
  IDM_CLOSE      = 202;

var
  menuiteminfo   : tagMENUITEMINFO;
  hm             : HMENU

begin
  // Menü erstellen
  hm := CreatePopupMenu;

  // Einträge hinzufügen
  AppendMenu(hm,MF_STRING, IDM_CONFIG, 'Konfiguration');
  AppendMenu(hm,MF_SEPARATOR, 0, nil);
  AppendMenu(hm,MF_STRING, IDM_CLOSE, 'Beenden');

  // Menuiteminfo initialisieren
  menuiteminfo.cbSize := SizeOf(TMenuItemInfo);
  // fMask setzen - wichtig, sonst gehts nicht
  menuiteminfo.fMask := MIIM_STATE;
  // State MFS_DEFAULT setzen, um den Eintrag in Fettschrift zu zeigen
  menuiteminfo.fState := MFS_DEFAULT;

  // Neue Menüinformationsstruktur setzen
  SetMenuItemInfo(hm, IDM_CONFIG, False, menuiteminfo);

  {...}
end;

Grüßle,
Daniel