Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Ginko,
26. Apr 2013
Hi danke für die Antwort, klappt bei mir leider nicht.
Ich habe aber gerade eine Lösung gefunden:
procedure TForm1.Memo1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button = mbRight then
Memo1.SelStart := LoWord(SendMessage(Memo1.Handle, EM_CHARFROMPOS, 0, MakeLParam(X, Y)));
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Ginko,
26. Apr 2013
Hi, ich versuche gerade den Cursor in einem Memo Feld zusätzlich mit der rechten Maustaste setzen zu lassen. Es klappt aber nicht wirklich ....
procedure TForm1.Memo1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
p2: TPoint;
begin
if Button = mbRight then
begin
GetCaretPos(p2);