TMemo detect mouse scrollwheel click?

[TiredOldMan]

In my web browser, I often open pages in a new tab by clicking the mouse wheel on the link.

I have a lazarus program with a TMemo that I can do similar, opening a web page by double-clicking on that line in a TMemo.  I tried to add something so that I could use the mouse wheel click, but I'm not finding a way to do that.  I'm hoping I missed something obvious and someone can point it out.

[Eugene Loza]

I guess you are looking for OnMouseDown event, e.g. something like

Code: Pascal  [Select][+][-]

1. procedure TForm1.Memo1MouseDown(Sender: TObject; Button: TMouseButton;
2.   Shift: TShiftState; X, Y: Integer);

Where Button is TMouseButton = (mbLeft, mbRight, mbMiddle, mbExtra1, mbExtra2) - namely, pressing mouse wheel creates mbMiddle event.

[TiredOldMan]

That's exactly what I needed.  Thank you.