Главная страница
    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.042 c
14-1096896970
ArchValentin
2004-10-04 17:36
2004.10.31
Программа управления комп. салоном...


3-1096530257
Nikolay_S
2004-09-30 11:44
2004.10.31
DBGridEh - как сделать нумерацию страниц при печати?


1-1097754448
HELPMEPLEASE
2004-10-14 15:47
2004.10.31
Проблема с событием нажатия на клавишу!??


4-1096320737
НовичОк
2004-09-28 01:32
2004.10.31
Получение заголовков всех запущенных приложений


1-1097669725
bober
2004-10-13 16:15
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
Английский Французский Немецкий Итальянский Португальский Русский Испанский