| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Выделение в мемо [Delphi, Windows]

DJ_UZer ©   (2008-03-21 20:52:00) 

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

---

{RASkov}   (2008-03-22 20:37:00) [1]

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

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

---

DJ_UZer   (2008-03-22 20:16:00) [2]

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

---

{RASkov}   (2008-03-22 19:13:00) [3]

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

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

---

DJ_UZer   (2008-03-22 15:01:00) [4]

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

---

{RASkov}   (2008-03-22 13:25:00) [5]

> [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 07:21:00) [6]

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

---

{RASkov}   (2008-03-21 22:35:00) [7]

http://www.delphimaster.ru/cgi-bin/forum.pl?n=18&id=1205594669
Да уж... уже забыл :)

---

easy   (2008-03-21 22:11:00) [8]

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

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

---

Johnmen   (2008-03-21 22:02:00) [9]

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

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

---

easy   (2008-03-21 21:51:00) [10]

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 21:27:00) [11]

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

---

Наверх