Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Определить имя items, в CheckListBox1 
:(
    Опции темы
MrDmitry
Дата 15.12.2008, 14:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 556
Регистрация: 10.11.2006

Репутация: нет
Всего: нет
Есть CheckListBox в котором все переключатели добавляются по ходу выполнения программы. Нужно при наведении мышки на один из флажков (не нажатии а именно наведении) вывести название флашка в свойство HINT
PM MAIL   Вверх
Frees
Дата 15.12.2008, 14:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 9
Всего: 54
суть вот такая только проверки надо написать что индекс корректный был
Код

procedure TForm1.CheckListBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  CheckListBox1.Hint :=
     CheckListBox1.Items[CheckListBox1.ItemAtPos(Point(X,Y),false)];
end;



--------------------
Кольцов Виктор Владимирович
PM MAIL ICQ   Вверх
MrDmitry
Дата 15.12.2008, 15:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 556
Регистрация: 10.11.2006

Репутация: нет
Всего: нет
Цитата(Frees @ 15.12.2008,  14:40)
суть вот такая только проверки надо написать что индекс корректный был
Код

procedure TForm1.CheckListBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  CheckListBox1.Hint :=
     CheckListBox1.Items[CheckListBox1.ItemAtPos(Point(X,Y),false)];
end;

Код работает. Но если я навожу курсор на свободное место от флажков выходит ошибка 

List index out of bounds (77)
PM MAIL   Вверх
Frees
Дата 15.12.2008, 15:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 9
Всего: 54
Цитата(MrDmitry @  15.12.2008,  17:55 Найти цитируемый пост)
Код работает. Но если я навожу курсор на свободное место от флажков выходит ошибка 

дак я и сказал выше что проверять надо 

вот 
Код


procedure TForm1.CheckListBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var i: Integer;
begin
  i := CheckListBox1.ItemAtPos(Point(X,Y),false);
  if (i>0)and(i<CheckListBox1.Items.count) then
    CheckListBox1.Hint :=  CheckListBox1.Items[i]
  else
    CheckListBox1.Hint := '';  
end;



--------------------
Кольцов Виктор Владимирович
PM MAIL ICQ   Вверх
MrDmitry
Дата 15.12.2008, 16:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 556
Регистрация: 10.11.2006

Репутация: нет
Всего: нет
Цитата(Frees @ 15.12.2008,  15:59)
Цитата(MrDmitry @  15.12.2008,  17:55 Найти цитируемый пост)
Код работает. Но если я навожу курсор на свободное место от флажков выходит ошибка 

дак я и сказал выше что проверять надо 

вот 
Код


procedure TForm1.CheckListBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var i: Integer;
begin
  i := CheckListBox1.ItemAtPos(Point(X,Y),false);
  if (i>0)and(i<CheckListBox1.Items.count) then
    CheckListBox1.Hint :=  CheckListBox1.Items[i]
  else
    CheckListBox1.Hint := '';  
end;

Сорри  что-то я проглядел.  Спасибо за помощь
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0428 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.