unit Main;
interfaceuses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TMainForm = class(TForm)
ListBox1: TListBox;
procedure FormCreate(Sender: TObject);
procedure ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
private{ Private declarations }
FHintRow : Integer; // Номер строки в списке, на которую указывает мышьpublic{ Public declarations }// Обработчик подсказокprocedure OnShowHint(var HintStr: string; var CanShow: Boolean;
var HintInfo: THintInfo);
end;
var
MainForm: TMainForm;
implementation{$R *.DFM}procedure TMainForm.FormCreate(Sender: TObject);
begin
FHintRow := -1;
Application.OnShowHint := OnShowHint; // Установка обработчикаend;
procedure TMainForm.OnShowHint(var HintStr: string; var CanShow: Boolean;
var HintInfo: THintInfo);
var
Pos: TPoint;
beginwith HintInfo do// Проверка на нужный объектif HintControl is TListBox thenwith HintControl as TListBox dobegin
Pos.X := 0;
Pos.Y := ListBox1.Tag;
HintPos := ListBox1.ClientToScreen(Pos);
HintStr := ListBox1.Hint;
end;
end;
procedure TMainForm.ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
MousePos : TPoint;
ItemPos : TRect;
RowWidth,
ItemNum : Integer;
FHint : string;
begin
MousePos.X := X;
MousePos.Y := Y;
// Определение номера строки в списке
ItemNum := ListBox1.ItemAtPos(MousePos, True);
// Проверка на перемещение мыши на другую строкуif (ItemNum <> FHintRow) thenbegin
FHintRow := ItemNum;
// Проверка на наличие элементов в спискеif ItemNum <> -1 thenbegin
ItemPos := ListBox1.ItemRect(ItemNum);
Application.CancelHint; // Снять текущую подсказку
ListBox1.Tag := ItemPos.Top; // Запоминаем позицию строки по вертикали
FHint := ListBox1.Items[ItemNum];
// Проверка на ширину строки
RowWidth := ListBox1.Canvas.TextWidth( FHint );
if (RowWidth > ListBox1.ClientWidth) then
FHint := FHint + '|'
else
FHint := '';
ListBox1.Hint := FHint;
endelsebegin
ListBox1.Hint := '';
Application.CancelHint;
ListBox1.Tag := -1;
end;
endend;
end.
Текст проекта:
program PrjHint;
uses
Forms,
Main in 'Main.pas' {MainForm};
{$R *.RES}begin
Application.Initialize;
Application.CreateForm(TMainForm, MainForm);
Application.ShowHint := True;
Application.HintPause := 100;
Application.HintHidePause := 999999;
Application.Run;
end.
Статья Отображение полных строк списка при перемещении мыши по списку раздела Компоненты и Классы Списки может быть полезна для разработчиков на Delphi и FreePascal.
Комментарии и вопросы
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.