Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Отдельный hint для, каждой строки TListBox

404
21 сентября 2004 года
GooD
108 / / 04.12.2003
Привер всем!
Вот тут на днях вопрос возник как это можно сделать.
Почитал FAQ ничего интересного неношол.
В нете тоже ничего не нашол(может плохо искал?)
Заранее спасибо за ответ!
368
21 сентября 2004 года
rostyslav
629 / / 13.07.2004
Высвечивает в качестве подсказки item, над которой остановилась мышка. Tag listbox-a нужно установить в -2.

Код:
procedure TForm1.ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
 Index: Integer;
 APoint: TPoint;
begin
  APoint.X := X;
  APoint.Y := Y;
  Index := ListBox1.ItemAtPos(APoint, True);
  if ListBox1.Tag <> Index then begin
    ListBox1.Tag := Index;
    if Index = -1 then
      ListBox1.Hint := ''
    else
      ListBox1.Hint := ListBox1.Items[Index];
  end;
end;
404
21 сентября 2004 года
GooD
108 / / 04.12.2003
Цитата:
Originally posted by rostyslav
Высвечивает в качестве подсказки item, над которой остановилась мышка. Tag listbox-a нужно установить в -2.

Код:
procedure TForm1.ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
 Index: Integer;
 APoint: TPoint;
begin
  APoint.X := X;
  APoint.Y := Y;
  Index := ListBox1.ItemAtPos(APoint, True);
  if ListBox1.Tag <> Index then begin
    ListBox1.Tag := Index;
    if Index = -1 then
      ListBox1.Hint := ''
    else
      ListBox1.Hint := ListBox1.Items[Index];
  end;
end;



Большое Спасибо:!!!:

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог