Форум: "Базы";
Текущий архив: 2003.10.13;
Скачать: [xml.tar.bz2];
ВнизКак заставить в DBGrid показывать содежимое ячейки в Hint Найти похожие ветки
← →
VtS (2003-09-22 09:56) [0]Есть таблица с длинными строками по 30-60 символов. На форме нет места под такой широкий DBGrid. Хочу чтобы юзер проводя мышкой над ячейками в Hint"е видел всю строку данной ячейки.
Как это реализовать?
← →
stud (2003-09-22 09:58) [1]эта тема уже много раз обсуждалась
возьми grideh или quantumgrid или ищи на форуме код обработчика
← →
stud (2003-09-22 09:58) [2]эта тема уже много раз обсуждалась
возьми grideh или quantumgrid или ищи на форуме код обработчика
← →
analyser (2003-09-22 10:49) [3]Хорошо описано у Архангельского с примером для TEdit.
Обработка ApplicationEvents.ShowHint:
procedure TfmMain.ApplicationEvents1ShowHint(var HintStr: String;
var CanShow: Boolean; var HintInfo: THintInfo);
begin
if (HintInfo.HintControl.ClassName = "TEdit") then begin
with (HintInfo.HintControl as TEdit) do begin
Label1.Font.Name := Font.Name;
Label1.Font.Size := Font.Size;
if (Label1.Canvas.TextWidth(Text) > ClientWidth) then begin
HintStr := Text;
ApplicationEvents1.CancelDispatch;
end;
end;
end;
end;
PS: Label1 используется для того, чтобы воспользоваться ее св-вом Canvas.TextWidth
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2003.10.13;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.008 c