Форум: "Начинающим";
Текущий архив: 2008.04.20;
Скачать: [xml.tar.bz2];
ВнизВыделение в мемо Найти похожие ветки
← →
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]Мне на кол больше наравиться..программы красивых размеров получаются..:) Сам пытался переделать, да вот ругается компилятор..
← →
{RASkov} © (2008-03-22 19:13) [9]> [8] DJ_UZer © (22.03.08 15:01)
> да вот ругается компилятор..
Это компилятор тебе говорит:
-"Выкинь нафих КОЛ и не занимайся фихней в 21 веке" :)
Вот ты представляешь у меня винт полтерабайта и что мне там до твоих съэкономленных полста кило?
:о)
ЗЫ Кстати, я обычно на другой стороне.... т.е. я на стороне экономии ресурсов, но КОЛ - это уже изврат, чесслово :)
← →
DJ_UZer © (2008-03-22 20:16) [10]{RASkov}, ты не могбы дать номер своей аськи пообщаться?
← →
{RASkov} © (2008-03-22 20:37) [11]> [10] DJ_UZer © (22.03.08 20:16)
Ну попробуй. Но сразу скажу, что в асе я редко ....и еще, если разговор будет на языке КОЛ :), то я общаться не буду).
Не, я не говорю, что КОЛ - это так уж и плохо. Просто я КОЛ не знаю, да собственно в наше время и знать наверное не хочу...
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2008.04.20;
Скачать: [xml.tar.bz2];
Память: 0.48 MB
Время: 0.072 c