Форум: "Основная";
Текущий архив: 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
