Wie kann ich die Breite eines TPopupMenu festlegen?

[berens]

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!