Tatsächlich, geht super einfach und die Zeichenfunktion bleibt auch erhalten (ich muss also nicht per Hand zeichnen):
Beim PopupMenu OwnerDraw auf True, bei allen TMenuItems bei OnMeasureItem die Prozedur verlinken:
Delphi-Quellcode:
procedure TForm1.MyMeasureItem(Sender: TObject; ACanvas: TCanvas; var Width, Height: Integer);
begin
Width := 200; // Oder eigenen Wert, ist ja klar
end;
Einwandfrei gelöst, vielen Dank, Hawkeye!