I'm trying to detect when a TListBox is scrolled using the scrollbars, but the
WM_VSCROLL message doesn't seem to b getting sent. I'm picking up all (or at
least loads of !) other messages.
procedure AppMessage(var Msg: TMsg; var Handled: Boolean);
/* in formcreat */
Application.OnMessage := AppMessage;
procedure TfrmMain.AppMessage(var Msg: TMsg; var Handled: Boolean);
begin
if (Msg.message = WM_VSCROLL) then
begin
writeln(IntToStr(Msg.message));
Handled := True;
end;
end;
_______________________________________________
Delphi mailing list -> [email protected]
http://www.elists.org/mailman/listinfo/delphi
