Вниз
Скачать: CL | DM;

Выделение в memo   Найти похожие ветки 

← →
DJ_UZer ©   (2008-03-15 18:24) [0]

Привет всем!
Подскажите пожалуйста, как сделать чтобы при выделении слова (2 щелчком мыши правой), в мемо, не выделялся еще пробел, а только само слово?


← →
{RASkov} ©   (2008-03-15 18:57) [1]

> [0] DJ_UZer ©   (15.03.08 18:24)

procedure TForm1.Memo1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
 if (Button=mbLeft) and (ssDouble in Shift) then
//if Memo1.SelText[Length(Memo1.SelText)]=#32 then
* while Memo1.SelText[Length(Memo1.SelText)]=#32 do
   Memo1.SelLength:=Memo1.SelLength-1;
end;

Можешь комментарий со звездочкой поменять местами, ну а саму звездочку выкинуть нафик :)


← →
{RASkov} ©   (2008-03-15 18:58) [2]

т.е. не сами строки местами менять, а символы // и *...
ну * это просто обозначение куда перенести комментарий, поэтому она вообще не нужна


← →
DJ_UZer ©   (2008-03-15 19:03) [3]

{RASkov}, большое спасибо! ;)


← →
{RASkov} ©   (2008-03-15 19:06) [4]

> (2 щелчком мыши правой),


> [3] DJ_UZer ©   (15.03.08 19:03)

только это для левой кнопки я сделал, а тебе нужно для правой?


← →
DJ_UZer ©   (2008-03-15 19:22) [5]

{RASkov}, ой нет для левой, перепутал..:)



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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c
15-1204280231
Palladin
2008-02-29 13:17
2008.04.13
Вот вам и неограниченность объектов ядра в совр. Windows


4-1187003036
DevilDevil
2007-08-13 15:03
2008.04.13
Удалить все сообщения контролу из очереди сообщений


15-1204040112
@!!ex
2008-02-26 18:35
2008.04.13
Почему данные не уходят через WinSock.Send?


15-1204398665
TIF
2008-03-01 22:11
2008.04.13
Canvas у... TWebBrowser


2-1205518291
La-la-Land
2008-03-14 21:11
2008.04.13
Интернет и файлы




   Наверх