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
