Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.03.05;
Скачать: CL | DM;

Вниз

Работа с Хинтами   Найти похожие ветки 

 
pasha_golub ©   (2004-02-25 11:30) [0]

Код:

type
TForm1 = class(TForm)
SG: TStringGrid;
procedure FormCreate(Sender: TObject);
procedure SGMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure SGExit(Sender: TObject);
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.ShowHint := True;
end;

procedure TForm1.SGMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var GCoord: TGridCoord;
Mes: TMessage;
begin
GCoord := SG.MouseCoord(X,Y);
if (GCoord.X>-1) and (GCoord.Y>-1)
and (SG.Hint <> SG.Cells[GCoord.X,GCoord.Y])
and (SG.Canvas.TextWidth(SG.Cells[GCoord.X,GCoord.Y])>SG.ColWidths[GCoord.X])
then
begin
Application.CancelHint;
SG.Hint := SG.Cells[GCoord.X,GCoord.Y];
TWMMouse(Mes).XPos := X;
TWMMouse(Mes).YPos := Y;
Application.HintMouseMessage(SG,Mes);
end
else
SG.Hint := "";
end;

procedure TForm1.SGExit(Sender: TObject);
begin
SG.Hint := "";
end;


Вообщем, показываю inplace хинт, при условии, что длинна строки в ячейке больше ширины столбца. Работает удовлетворительно, но хочется большего. Объяснить на пальцах не смогу, лучше всего увидеть. Иногда есть паузы, иногда требуется шевельнуть мышой и т.д.

Есть мысль, что если бы я смог знать состояние поля Application.FHintActive, соответственно мог бы нагло прятать и показывать хинт в нужное мне время.

Или может быть будут другие предложения? Спасибо.


 
pasha_golub ©   (2004-02-25 15:28) [1]

Уп



Страницы: 1 вся ветка

Текущий архив: 2004.03.05;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.021 c
14-12539
stone
2004-02-13 10:17
2004.03.05
Пользователям Интернета придется


4-12584
LOX
2003-12-30 13:51
2004.03.05
Сохранить текст из ListBox на чужой форме


3-12253
tytus
2004-02-09 13:31
2004.03.05
ВМР в DBGrid


14-12532
strannik_
2004-02-12 12:00
2004.03.05
snif


1-12326
vlv
2004-02-25 15:50
2004.03.05
Как определить, какая версия установлена на компьютере?