Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.11.20;
Скачать: CL | DM;

Вниз

Проблема при вставке текста из буффера обмена в Memo   Найти похожие ветки 

 
FunkyByte ©   (2005-10-29 18:29) [0]

Доброго всем времени суток, уважаемые мастера. Как можно сделать так, чтобы при вставке текста из буфера обмена в Memo через всплывающее меню текст вставлялся там, где находился курсор мыши при вызове всплывающего меню, а не там, где в этот момент находился текстовый курсор? Заранее благодарен.


 
изобретатель_   (2005-10-29 22:10) [1]

Перед вызовом контекстного меню  переставляй текстовый курсор в нужное место:)


 
FunkyByte ©   (2005-10-30 01:16) [2]

А как это сделать? (вручную не предлагать)


 
Джо ©   (2005-10-30 04:21) [3]


> [2] FunkyByte ©   (30.10.05 01:16)
> А как это сделать? (вручную не предлагать)

Что значит вручную? Вот так, например, некошерно?

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

 function CharFromPos: Dword;
 var
   Pt: DWORD;
 begin
   // Low word - X, high word - Y
   Pt := (Y * $10000) or (X and $FFFF);
   Result := (SendMessage((Sender as TMemo).Handle,EM_CHARFROMPOS,0,Pt));
   // charpos in low word
   Result := Result and $0000FFFF;
 end;

begin
 if Button = mbRight then
   (Sender as TMemo).SelStart := CharFromPos
end;


 
FunkyByte ©   (2005-10-30 22:14) [4]


> Что значит вручную?

Вручную переставить текстовый курсор - это значит подвести курсор мыши к тому месту, куда надо переставить текстовый курсор, и щёлкнуть по левой почке мышки :-)


> Вот так, например, некошерно?

То, что надо. Большое спасибо.



Страницы: 1 вся ветка

Текущий архив: 2005.11.20;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.048 c
10-1107963374
Grant
2005-02-09 18:36
2005.11.20
RegisterTypeLib


11-1112012463
BigMic
2005-03-28 16:21
2005.11.20
Установка в системе шрифта по-умолчанию


3-1128597127
a80h19
2005-10-06 15:12
2005.11.20
Создание БД через ADO


14-1130253160
LordOfRock
2005-10-25 19:12
2005.11.20
TheBAT!


4-1127223681
grizzli
2005-09-20 17:41
2005.11.20
Вопрос черезвычайной важности