Breite eines Popup-Menüs bestimmen?

[PeterPanino]

Wie kann man die Breite eines Popup-Menüs unabhängig von der Breite der darin enthaltenen Menüeinträge einstellen? Genauer gesagt benötige ich folgende Funktion:

Delphi-Quellcode:

SetPopupMenuWidth(MyPopupMenu, Max(BreiteDesLaengstenEintrages, 150));

[marabu]

Guten Morgen.

Hat dein Problem einen Bezug zu diesem: klick?

Grüße vom marabu

[Nicodius]

kleine anmerkung

Zitat:

Funktion

das ist eine procedure :zwinker: gibt dir ja nichts zurück

[PeterPanino]

Zitat:

Zitat von marabu

Guten Morgen.

Hat dein Problem einen Bezug zu diesem: klick?

Grüße vom marabu

Nicht direkt, bei dem Link geht es ja nur darum, die Ausdehnung des Popupmenüs zu erfragen.

Um die Breite des Popupmenüs anzupassen, sind grundsätzlich zwei Möglichkeiten vorstellbar:

1. Umgehung der von Windows durchgeführten Breitenanpassung (welche wiederum aus der Breite des längsten Menüeintrages resultiert),

2. z.B. Anfügen sovieler Leerzeichen zum längsten Menüeintrag, bis die gewünschte Breite erreicht ist.

Wenn es für die 1. Möglichkeit einen direkten API-Aufruf gäbe, so wäre mir das lieber (Einsparung einer Menge Rechnerei).

[Hawkeye219]

Hallo,

Du könntest folgendermaßen vorgehen:

1. Weise dem PopupMenü eine Imageliste zu, die auch leer sein darf.
2. Setze die Eigenschaft OwnerDraw des Menüs auf den Wert True.
3. Weise mindestens einem Menüeintrag eine Behandlungsroutine für das Ereignis OnMeasureItem zu.

In der Behandlungsroutine kannst Du dann die gewünschte Breite setzen.

Siehe dazu auch diesen Thread.

Gruß Hawkeye