Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.07.15;
Скачать: CL | DM;

Вниз

Снова ТListBox (избегание ошибки)   Найти похожие ветки 

 
Evants   (2002-07-04 10:36) [0]

Всем доброго утра. Снова требуеться Ваша помощь по ТListBox.
Как сделать, чтобы при клике по пустому пространству ТListBox"а не выскакивала ошибка? Спасибо.


 
Kaban ©   (2002-07-04 10:39) [1]

сама по себе ошибка при клике возникать не может, следовательно, вы этот клик обрабатываете. проверяйте наличие элемента с помощью функции ListBox1.ItemAtPos


 
Кулюкин Олег ©   (2002-07-04 10:40) [2]

if ListBox1.ItemIndex <> -1 then
begin
...
end;


 
Kaban ©   (2002-07-04 10:44) [3]

Если это продолжение вопроса:
http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1025717829&n=0
то делайте так
procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if not (ListBox1.ItemAtPos(Point(x,y),true) = nil) then
ListBox1.ItemIndex:=ListBox1.ItemAtPos(Point(x,y),true);
end;



 
Evants   (2002-07-04 11:10) [4]

При компилляции...

if not (ListBox1.ItemAtPos(Point(x,y),true) = nil) then
ListBox1.ItemIndex:=ListBox1.ItemAtPos(Point(x,y),true);


...возникает следующая ошибка:
Operator not applicable to this operand type


 
Kaban ©   (2002-07-04 11:14) [5]

Ну господи, перепутал
if ListBox1.ItemAtPos(Point(1,1), true) <> -1 then
трудно посмотреть, что возвращает функция ItemAtPos?



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

Текущий архив: 2002.07.15;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.01 c
3-47198
KVT2000
2002-06-18 11:35
2002.07.15
Ошибка запроса


1-47454
JC
2002-06-27 16:31
2002.07.15
Как PopupMenu показать прямо под Edit ом?


1-47549
Zavdim
2002-06-27 08:46
2002.07.15
Иконки на панели задач


7-47842
Lmatveev
2002-04-23 22:01
2002.07.15
---|Ветка была без названия|---


1-47514
miDDTrich
2002-07-04 15:43
2002.07.15
Начинаю дорисовывать в TreeNode - шрифт меняется!