Hi, > if WheelDelta > 0 then > ((Sender as TForm).ActiveControl as TMemo).ScrollBy(0, > WheelDelta) > else > ((Sender as TForm).ActiveControl as TMemo).ScrollBy(0, > -WheelDelta); > > ((Sender as TForm).ActiveControl as TMemo).Invalidate; > end;
Hmmmm... Does this scroll both up and down? By(t)e Laca www.kovacslt.fw.hu mailto:[EMAIL PROTECTED] mailto:[EMAIL PROTECTED] __________________________________________________ Delphi-Talk mailing list -> Delphi-Talk@elists.org http://www.elists.org/mailman/listinfo/delphi-talk
