Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2008.04.13;
Скачать: [xml.tar.bz2];

Вниз

Выделение в 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 вся ветка

Форум: "Начинающим";
Текущий архив: 2008.04.13;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.007 c
15-1204015827
DVM
2008-02-26 11:50
2008.04.13
Как объявить тип массив структур в Turbo C 3.0


2-1206014820
Andrewtitoff
2008-03-20 15:07
2008.04.13
Как сделать скриншот экрана


2-1205676755
Res
2008-03-16 17:12
2008.04.13
Cardinal


2-1206005117
pvr
2008-03-20 12:25
2008.04.13
Tool Palette


2-1205914781
Kavis
2008-03-19 11:19
2008.04.13
Delphi 10 Lite значение переменной по наведению мыши





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский