ListBox Canvas.TextWidth änderung reagieren???

[FritzAT]

Hallo!

Habe eine ListBox und will bei Änderungen der Font.Size - größe die
Horizontalle Scrollbar anpassen.

Funktioniert beim einlesen soweit alles.
Sobald aber Font.Size geändert wird(derzeit über einen Button) ist's
mit der Scrollbar-breite vorbei!!!
Beim Debugen kommt mir vor alls würde die ListBox von der Fontänderung
nichts mitbekommen....

Wie stelle ich es nun an, damit die ListBox die änderung bemerkt...
Die Scrollbarbreite passe ich folgendermassen an:

Delphi-Quellcode:

for ic:= 0 to ComponentCount-1 do
    begin
      if (Components[ic] is TListBox )and
         (TListBox(Components[ic]).Items.Count > 0)then
      begin
        w2:=0;
        for i:= 0 to TListBox(Components[ic]).Items.Count-1 do
        with TListBox(Components[ic])do
        begin
          w1:= Canvas.TextWidth(Items[i]);
          if w2 < w1 then w2:= w1;
        end;
        SendMessage(TListBox(Components[ic]).Handle,
            LB_SetHorizontalExtent, w2 + GetSystemMetrics(SM_CxFrame), 0);
      end;
    end;

[edit=SirThornberry]Delphi-Tag geschlossen. Mfg, SirThornberry[/edit]