Выделение в мемо

← →
DJ_UZer © (2008-03-21 20:52) [0]

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

← →
Johnmen © (2008-03-21 21:27) [1]

см. OnDblClick, SelText, SelLength
Про 3 щелчка неясно.

← →
easy © (2008-03-21 21:51) [2]

procedure TForm1.Memo1DblClick(Sender: TObject); begin with TMemo(Sender) do begin if SelLength <> 0 then if SelText[Length(SelText)]=#32 then SelLength:=SelLength-1; end; end;

← →
Johnmen © (2008-03-21 22:02) [3]

> easy © (21.03.08 21:51) [2]

Да-да, надо разжевать до кашицы...

← →
easy © (2008-03-21 22:11) [4]

> надо разжевать до кашицы...

ну а почему-бы и нет? тем более, что ешё про три щелчка неясно %)

← →
{RASkov} © (2008-03-21 22:35) [5]

http://delphimaster.net/view/2-1205594669/
Да уж... уже забыл :)

← →
DJ_UZer © (2008-03-22 07:21) [6]

Удалено модератором
Примечание: обсуждение модерирования

← →
{RASkov} © (2008-03-22 13:25) [7]

> [0] DJ_UZer © (21.03.08 20:52)
> а при 3 щелчке выделялось все?

Может так:
type TClickData = record LastTickClick, CurTickClick: Cardinal; Count: Word; end; var CD: TClickData; procedure TForm1.Memo1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if Button=mbLeft then begin CD.LastTickClick:=CD.CurTickClick; CD.CurTickClick:=GetTickCount; if (CD.CurTickClick-CD.LastTickClick)<GetDoubleClickTime then INC(CD.Count) else CD.Count:=1; case CD.Count of 2: Memo1.Lines.Add("double click"); 3: Memo1.SelectAll; //Memo1.Lines.Add("triple click"); 4: Memo1.Lines.Add("four click"); end; end; end;

> мне бы для КОЛ..

Ну переделать под КОЛ сам не сможешь что ли?
Я просто не понимаю, что это такое - КОЛ.
Т.е. я знаю что это такое, но для чего оно????
Или ты пишешь для компов у которых "винты" маленького размера?)
:о)

← →
DJ_UZer © (2008-03-22 15:01) [8]

Мне на кол больше наравиться..программы красивых размеров получаются..:) Сам пытался переделать, да вот ругается компилятор..

> [8] DJ_UZer © (22.03.08 15:01)
> да вот ругается компилятор..

Это компилятор тебе говорит:
-"Выкинь нафих КОЛ и не занимайся фихней в 21 веке" :)
Вот ты представляешь у меня винт полтерабайта и что мне там до твоих съэкономленных полста кило?
:о)
ЗЫ Кстати, я обычно на другой стороне.... т.е. я на стороне экономии ресурсов, но КОЛ - это уже изврат, чесслово :)

{RASkov}, ты не могбы дать номер своей аськи пообщаться?

> [10] DJ_UZer © (22.03.08 20:16)

Ну попробуй. Но сразу скажу, что в асе я редко ....и еще, если разговор будет на языке КОЛ :), то я общаться не буду).
Не, я не говорю, что КОЛ - это так уж и плохо. Просто я КОЛ не знаю, да собственно в наше время и знать наверное не хочу...

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