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

Вниз

Правая клавиша в ричЭдит   Найти похожие ветки 

 
TStas   (2012-05-17 23:46) [0]

Как сделать, чтобы при щечке правой клавишей в ричЭдите устанавливался текстовый курсор, как при щелчке левой?


 
TStas   (2012-05-18 00:08) [1]

Сам нашёл ответ:
Посылать себе сообщение, изменяя Msg
procedure TStCodeEditor.WMRButtonDown(var Message: TMessage);
begin
 Inherited;
 If SelectByRightButton then
   SendMessage(Handle, WM_LBUTTONDOWN, Message.WParam, Message.LParam)
end;

procedure TStCodeEditor.WMRButtonUp(var Message: TMessage);
begin
 Inherited;
 If SelectByRightButton then
   SendMessage(Handle, WM_LBUTTONUP, Message.WParam, Message.LParam)
end;



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

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

Наверх




Память: 0.46 MB
Время: 0.164 c
10-1178194054
Егоров А.Н.
2007-05-03 16:07
2013.03.22
Копирование формата ячейки в Excel из Delphi


8-1230998221
Б
2009-01-03 18:57
2013.03.22
Где можно скачать эту книгу???


15-1333544592
Pit
2012-04-04 17:03
2013.03.22
Ищу, от 60к, Москва, ведущий программист / Team Lead, нач. отдела


15-1349159725
stas
2012-10-02 10:35
2013.03.22
2 геометрических задачи


15-1334134947
xss22
2012-04-11 13:02
2013.03.22
Утечки памяти в TStringList::GetText()