I think I solved it using this code, in the Form FormMouseWheel event.
if (Sender as TForm).ActiveControl is TMemo then
begin
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;
Sincerely,
Brad Gies
-------------------------------------
NLM Software
Southfield, MI, USA
-------------------------------------
If you get today's work done today, but do it in a way that you can't
possibly get tomorrow's work done tomorrow, then you lose.
> -----Original Message-----
> From: [EMAIL PROTECTED] [mailto:delphi-talk-
> [EMAIL PROTECTED] On Behalf Of Gies,Brad
> Sent: Saturday, July 28, 2007 1:07 PM
> To: delphi-talk@elists.org
> Subject: Delphi 6 Memo
>
>
> Anyone know an easy way to get a Delphi 1 Memo control to scroll up
and
> down using the Mouse Wheel?
>
>
> Sincerely,
>
> Brad Gies
> -------------------------------------
> NLM Software
> Southfield, MI, USA
> -------------------------------------
>
> If you get today's work done today, but do it in a way that you can't
> possibly get tomorrow's work done tomorrow, then you lose.
>
>
>
> This e-mail or communication, including any attachments, is intended
only
> for the person or entity
> to which it is addressed and may contain confidential and/or legally
> privileged material. Any review,
> retransmission, dissemination or other use of, or taking of any action
in
> reliance upon, this
> information by persons or entities other than the intended recipient
is
> prohibited. If you received
> this message in error, please contact the sender immediately and
> permanently delete all copies,
> electronic or other, you may have or from your computer. Any
disclosure,
> copying, distribution,
> reliance or use of the contents or information received in error is
> strictly prohibited.
> The foregoing applies even if this notice is imbedded in a message
that is
> forwarded or attached.
> __________________________________________________
> Delphi-Talk mailing list -> Delphi-Talk@elists.org
> http://www.elists.org/mailman/listinfo/delphi-talk
This e-mail or communication, including any attachments, is intended only for
the person or entity
to which it is addressed and may contain confidential and/or legally privileged
material. Any review,
retransmission, dissemination or other use of, or taking of any action in
reliance upon, this
information by persons or entities other than the intended recipient is
prohibited. If you received
this message in error, please contact the sender immediately and permanently
delete all copies,
electronic or other, you may have or from your computer. Any disclosure,
copying, distribution,
reliance or use of the contents or information received in error is strictly
prohibited.
The foregoing applies even if this notice is imbedded in a message that is
forwarded or attached.
__________________________________________________
Delphi-Talk mailing list -> Delphi-Talk@elists.org
http://www.elists.org/mailman/listinfo/delphi-talk
