فوکوس روی متن در RichEdit با راست کلیک

[جواد ملاولی]

سلام. چطور میتونیم در شی ء RichEdit با کلیک راست موس روی متن فوکوس کنیم(مثل کلیک چپ که خودش فوکوس می کنه)؟

[علی کشاورز]

procedure TForm1.RichEdit1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,
Y: Integer);
begin
if Button = mbRight then
(Sender as TWinControl).SetFocus;
end;

[جواد ملاولی]

سلام. با تشکر از علی آقا، منظور من اینه که نشانگر متن در محل ماوس باشه؛ مثل کلیک چپ.

[علی کشاورز]

منظور من اینه که نشانگر متن در محل ماوس باشه؛ مثل کلیک چپ.
با استفاده از تابع SetCaretPos ویندوز، یا متد CaretPos خود RichEdit.

[جواد ملاولی]

با استفاده از تابع SetCaretPos ویندوز، یا متد CaretPos خود RichEdit.
تابع SetCaretPos محل اشاره گر رو عوض می کنه ولی SelStart تغییر نمی کنه. لطفاً بیشتر توضیح بدین.

[علی کشاورز]

خب SelStart رو خودتون در کد تغییر بدید. قرار نیست SetCaretPos مقدار SelStart را تغییر بده.

[جواد ملاولی]

کدی رو که می خواستم پیدا کردم:

procedure TMainForm.TextMemoMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
else if Button = mbRight then
begin
mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
end;
end;