Hallo,
vielleicht ist dir ja schon geholfen, aber trotzdem hier noch eine Möglichkeit.
Ereignis: OnMouseDown.
Das sieht dann so aus:
Delphi-Quellcode:
procedure TForm1.MemoMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
//TMouseButton = (mbLeft, mbRight, mbMiddle);
//TShiftState = set of (ssShift, ssAlt, ssCtrl, ssLeft, ssRight, ssMiddle, ssDouble);
Damit müsste es definitif gehen.
Gruß Roedel