ListboxEinträge nicht übers Ende der Listbox hinaus zulassen

[Lefko]

Hm, hat gar nicht geklappt fällt mir mal auf nach ewigen Zeiten...

Bei diesem Code:

Delphi-Quellcode:

repeat
 Name := Inputbox('Namen eingeben!','Bitte geben Sie Ihren Namen ein!','');
 if Name = '' then exit;
 if Form2.ShowList.Canvas.TextWidth(PunkteStr + ' ' + Name) > 200
   then Showmessage('Ihr Name ist zu lang!');
until Form2.ShowList.Canvas.TextWidth(PunkteStr + ' ' + Name) <= 200;

sagt mir die MessageBox (hier jetzt nicht mehr drin), dass z.B. der String "Der BESTE der WELT" nur 140 Pixel lang sei? Dieser String ist es aber beispielsweise, der in dem Screenie oben über den Rand der Listbox hinausgeht?!

Kann mir irgendjemand dazu was sagen? hat das was mit dem Font zu tun? oder so?

MfG Lefko

//Edith sagt, ich sollte sagen, dass ich Comic Sans MS verwende...