Aвтор: Serzs
Предположим, у нас есть список строк, причем все строки или некоторые не влазят по ширине. Пользоваться прокруткой не всегда удобно. Возможно использование другого варианта. Мышкой проводим по списку и, если строка не влазит по ширине, то появляется Hint, содержащий текущую строку целиком, причем прямо поверх самой строки! Идея подходит ? Тогда это можно реализовать, например, так ...
Текст формы примера :
|
Code: |
|
object MainForm: TMainForm Left = 7 Top = 121 Width = 200 Height = 157 Hint = '34534535' Caption = 'Long hints' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ShowHint = True OnCreate = FormCreate PixelsPerInch = 120 TextHeight = 16 object ListBox1: TListBox Left = 12 Top = 12 Width = 165 Height = 97 Hint = '1|2' ItemHeight = 16 Items.Strings = ( '1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ' 'A1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ' '1234567890' 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 'ABCD') ParentShowHint = False ShowHint = True TabOrder = 0 OnMouseMove = ListBox1MouseMove end end |
- Назад
- Вперёд >>
Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.
ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!