Выделение в 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}, большое спасибо! ;)

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

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

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

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

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