TextRect oder Itemweite in WM_MEASUREITEM zuweisen

Im moment weise ich eine feste Weite dem Menü zu.

Delphi-Quellcode:

			      WM_MEASUREITEM:

      begin

        PMis := Pointer(lP);

        if wP = 0 then

        begin

          PMis^.itemWidth := 170;

          PMis^.itemHeight := 18;

          Result := 1;

          Exit;

        end;

      end;

da ich aber mehrere Menüs habe und die zur Laufzeit erstellt werden
sieht es bescheiden aus wenn ich für "About" eine länge von 200 zuweise.

Wie kann ich anhand der länge vom string(text) diese im WM_MEASUREITEM zuweisen ?
Also abhängig vom längsten Menü Eintrag.

Außerdem ist mir nicht bekannt wie lang der längste übergebene String
zur Laufzeit ist.

EDIT:
Hab mal ein Bild angehängt.. So geht das gar nicht.
About wäre dann extrem lang und das untere Menü , die länge der einträge ist mir ja nicht bekannt!

gruss Emil

TextRect oder Itemweite in WM_MEASUREITEM zuweisen

TextRect oder Itemweite in WM_MEASUREITEM zuweisen

Forumregeln