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

problem beim ausblenden d.vertikalen scrollbar einer listbox

problem beim ausblenden d.vertikalen scrollbar einer listbox

Forumregeln