Wie kann ich die Breite eines TPopupMenu festlegen?

[berens]

Hallo!

Wie kann ich die Breite eines Popup-Menüs festlegen?

Ich möchte es in Verbindung mit einem TButton auf die selbe Breite bringen.

Danke.

[sirius]

Die Breite des StandardPopups von Windows kann nicht verändert werden. Diese berechnet Windows anhand der eingetragenen Menupunkte.

[berens]

Kann ich denn OnDrawItem nutzen um das ARect zu verändern?

Delphi-Quellcode:

OnDrawItem(Sender: TObject; ACanvas: TCanvas; ARect: TRect; Selected: Boolean);
var
  a: TRect;
begin
  a := ARect;
  a.Right := 200;
  inherited; // geht nicht, wie rufe ich die ursprüngliche DrawItem Prozedur auf?
end;

[sirius]

Dein Menu hat ein onDrawItem-Ereignis?
Das scheint was neues zu sein. Aber ich habe noch nicht gesehen, dass Windows hier das Zepter abgibt.

[Hawkeye219]

Hallo,

TMenuItem.OnMeasureItem ist das richtige Ereignis - vorausgesetzt, beim PopupMenu ist das Flag OwnerDraw gesetzt.

Gruß Hawkeye

[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!