| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Правый клик в ListBox [D6, WinXP]
InfMag © (2004-10-16 18:44:00)Люди, кто может мне объяснить как при правом клике на ListBox выделять item также как и левым?
Piter (2004-10-18 01:44:00) [1]GuAV © (17.10.04 23:05) [17]
Тем не менее, мне он больше нравится
блин. Ну а чем он больше нравится то?!
Вроде и фич нету - значит, менее удобен. А нравится больше. Как же так? :)
Хотя давай переместимся в http://www.delphimaster.ru/cgi-bin/forum.pl?id=1095535491&n=3
GuAV (2004-10-17 23:18:00) [2]
>[17] GuAV © (17.10.04 23:05)
>
> Так он автор?
Он автор другуго клиента.
http://www.magic-forum.narod.ru/
olookin (2004-10-17 23:12:00) [3]--------------------------------------------------------------------------------
[17] GuAV © (17.10.04 23:05)
Так он автор?
GuAV (2004-10-17 23:05:00) [4]
> название экзешника - DMClient.exe
У DMClient фичи продемонстрированной в [9] Piter © (17.10.04 13:49) нет. И ещё кое чего из действительно полезных фич нет. Тем не менее, мне он больше нравится
olookin (2004-10-17 22:57:00) [5][15] Piter © (17.10.04 22:24)
название экзешника - DMClient.exe
Piter (2004-10-17 22:24:00) [6]название какое?
Piter (2004-10-17 22:24:00) [7]olookin © (17.10.04 21:51) [12]
этот самый - это какой? :)
GuAV (2004-10-17 22:22:00) [8]Лично я вернулся на DMClient
olookin (2004-10-17 21:51:00) [9]Значит вот этот самый клиент Piter-овский???
Piter (2004-10-17 20:17:00) [10]GuAV © (17.10.04 14:27) [10]
блин, ну не туда ткнул :) Бывает...
GuAV (2004-10-17 14:27:00) [11]
> Piter © (16.10.04 23:23) [5]
> но на понт я никого брать не собирался
Piter © демонстрирует возможности своего клиента :)
Piter (2004-10-17 13:49:00) [12]Piter © (16.10.04 23:23) [5]
но на понт я никого брать не собирался
>Вы блин не можете что-ли решить такой простой >вопрос?
NikB (2004-10-17 12:47:00) [13]А если хочеш и когда видно контекстное меню при правом клике на ListBox выделять item также как и левым, надо менят Autopopup.
Когда нет контекстного меню - все и так как положено :)
InfMag (2004-10-17 09:16:00) [14]О боже, наконец. Вы помогли мне решить простую и в тоже время гемороцческую... FENKSЪ
InfMag (2004-10-17 09:11:00) [15]Спасибо кончно, но на понт я никого брать не собирался, а просто у меня настроение фиговое было, ниегде ответа получить не мог...
Еще раз спасибо...
Piter (2004-10-16 23:23:00) [16]begin...end © (16.10.04 20:24) [4]
ну да. Так даже нагляднее
begin...end (2004-10-16 20:24:00) [17]
> Piter
Можно, в общем-то, и без дополнительной переменной:
ItemIndex := ItemAtPos(Point(X, Y), false);
Piter (2004-10-16 20:19:00) [18]Разозлился и сходу написал не совсем корректно. Хотя тут уже исправить не составляет труда:
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;
Piter (2004-10-16 20:09:00) [19]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;
Полегчало?
InfMag (2004-10-16 19:37:00) [20]Мне-то кажется, что тут сидят всезнающие... Вы блин не можете что-ли решить такой простой вопрос?
| |
