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

Вниз

Правый клик в ListBox   Найти похожие ветки 

 
InfMag ©   (2004-10-16 18:44) [0]

Люди, кто может мне объяснить как при правом клике на ListBox выделять item также как и левым?


 
InfMag ©   (2004-10-16 19:37) [1]

Мне-то кажется, что тут сидят всезнающие... Вы блин не можете что-ли решить такой простой вопрос?


 
Piter ©   (2004-10-16 20:09) [2]

1) в течении 53 минут не поступило ответа - уже паника. Тебе НИКТО НИЧЕГО НЕ ДОЛЖЕН

2) будешь брать на понт - вообще ответа не получишь

3)
procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
var
 pt: TPoint;
begin
 pt.X := X;
 pt.Y := Y;
 with Sender as TListBox do
   ItemIndex := ItemAtPos(pt, true);
end;


Полегчало?


 
Piter ©   (2004-10-16 20:19) [3]

Разозлился и сходу написал не совсем корректно. Хотя тут уже исправить не составляет труда:

procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
var
 pt: TPoint;
begin
 pt.X := X;
 pt.Y := Y;
 if mbRight=Button then
   with Sender as TListBox do
     ItemIndex := ItemAtPos(pt, false);
end;


 
begin...end ©   (2004-10-16 20:24) [4]


> Piter

Можно, в общем-то, и без дополнительной переменной:

ItemIndex := ItemAtPos(Point(X, Y), false);


 
Piter ©   (2004-10-16 23:23) [5]

begin...end ©   (16.10.04 20:24) [4]

ну да. Так даже нагляднее


 
InfMag ©   (2004-10-17 09:11) [6]

Спасибо кончно, но на понт я никого брать не собирался, а просто у меня настроение фиговое было, ниегде ответа получить не мог...
Еще раз спасибо...


 
InfMag ©   (2004-10-17 09:16) [7]

О боже, наконец. Вы помогли мне решить простую и в тоже время гемороцческую... FENKSЪ


 
NikB   (2004-10-17 12:47) [8]

А если хочеш и когда видно контекстное меню при правом клике на ListBox выделять item также как и левым, надо менят Autopopup.
Когда нет контекстного меню - все и так как положено :)


 
Piter ©   (2004-10-17 13:49) [9]

Piter ©   (16.10.04 23:23) [5]
но на понт я никого брать не собирался


>Вы блин не можете что-ли решить такой простой >вопрос?


 
GuAV ©   (2004-10-17 14:27) [10]


> Piter ©   (16.10.04 23:23) [5]
> но на понт я никого брать не собирался

Piter © демонстрирует возможности своего клиента :)


 
Piter ©   (2004-10-17 20:17) [11]

GuAV ©   (17.10.04 14:27) [10]

блин, ну не туда ткнул :) Бывает...


 
olookin ©   (2004-10-17 21:51) [12]

Значит вот этот самый клиент Piter-овский???


 
GuAV ©   (2004-10-17 22:22) [13]

Лично я вернулся на DMClient


 
Piter ©   (2004-10-17 22:24) [14]

olookin ©   (17.10.04 21:51) [12]

этот самый - это какой? :)


 
Piter ©   (2004-10-17 22:24) [15]

название какое?


 
olookin ©   (2004-10-17 22:57) [16]

[15] Piter ©   (17.10.04 22:24)

название экзешника - DMClient.exe


 
GuAV ©   (2004-10-17 23:05) [17]


> название экзешника - DMClient.exe

У DMClient фичи продемонстрированной в [9] Piter ©   (17.10.04 13:49) нет. И ещё кое чего из действительно полезных фич нет. Тем не менее, мне он больше нравится


 
olookin ©   (2004-10-17 23:12) [18]

--------------------------------------------------------------------------------
[17] GuAV ©   (17.10.04 23:05)

Так он автор?


 
GuAV ©   (2004-10-17 23:18) [19]


>[17] GuAV ©   (17.10.04 23:05)
>
> Так он автор?

Он автор другуго клиента.
http://www.magic-forum.narod.ru/


 
Piter ©   (2004-10-18 01:44) [20]

GuAV ©   (17.10.04 23:05) [17]
Тем не менее, мне он больше нравится


блин. Ну а чем он больше нравится то?!
Вроде и фич нету - значит, менее удобен. А нравится больше. Как же так? :)
Хотя давай переместимся в http://delphimaster.net/view/15-1095535491/



Страницы: 1 вся ветка

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

Наверх





Память: 0.52 MB
Время: 0.035 c
14-1097296494
Stef
2004-10-09 08:34
2004.10.31
Метод Брезенхема. Прямой доступ к видео памяти.


3-1095717516
stoun
2004-09-21 01:58
2004.10.31
Как связать БД


14-1097138479
Lool
2004-10-07 12:41
2004.10.31
Задача по геометрии


1-1098176351
starik30
2004-10-19 12:59
2004.10.31
Обмен между потоками


1-1097920508
Meteorite
2004-10-16 13:55
2004.10.31
Самокопирование





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский