problem beim ausblenden d.vertikalen scrollbar einer listbox

[Grumble]

hi,

also ich habe eine listbox bei der ich den vertikalen scrollbar ausgeblendet habe, und zwar so

Delphi-Quellcode:

private
    { Private-Deklarationen }
    FLIstBoxWndProc:TwndMethod;
    procedure ListboxWndProc(var Msg:Tmessage);
public
    { Public-Deklarationen }
    fshowvert:boolean;
end;
.
.
.
.
procedure TCompForm.ListboxWndProc(var Msg: TMessage);
begin
  ShowScrollBar(LB_D.Handle, SB_VERT, FShowVert);  
  FListboxWndProc(Msg); // process message
end;

// aufruf im formcreate

  FShowVert := False; // hide vert scrollbar
  FListboxWndProc := LB_D.WindowProc; // save old window proc
  LB_D.WindowProc := ListBoxWndProc; // subclass

ich hab leider keine ahnung von messages und so, hab mir das aus nem anderen beispiel gebastelt... die sache funktioniert an sich schon, die vertikale scrollbar der listbox ist weg, aber die procedure TCompForm.ListboxWndProc(var Msg: TMessage); wird oft durchlaufen (warum?) und irgendwann bei diesen durchlaeufen bekomm ich dann n division durch 0 fehler. komischerweise beim aufbau einer anderen listbox auf einem anderen formular... ich nahm an diese procedure wird nur einmal im formcreate aufgerufen ? hat jemand ne ahnung woran das liegen koennte? ich hoffe das kam halbwegs verstaendlich rueber :gruebel:

[tigerman33]

Der große Experte bei messages bin ich auch nicht, aber ist die WndProc nicht der Standard handler für alle events? Dann würde die Methode also bei jeder empfangenen Message durchlaufen.