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

Вниз

Вопрос про hint   Найти похожие ветки 

 
Владимир Березин   (2003-08-15 22:21) [0]

Уважаемые МАСТЕРА!
Не подскажете ли как можно решить вот какую задачу.
На форме есть Image, на нем расчерчена сетка и надо чтобы при перемещении мыши в хинте отображалась информация связанная с дан
ной ячейкой сетки.


 
IntLex   (2003-08-16 04:44) [1]

Я думаю, эту задачу надо повесить на событие Image.onMouseMove

procedure Image.onMouseMove(...);
var
i, j, k: Integer;
begin
i:=x div {ширина клетки}; //номер столбца
j:=y div {высота клетки}; //номер строки
k:=y*{кол-во клеток}+x; //номер клетки
case k of
{значение}: Image.Hint:={текст};
end;
end;


 
Владимир Березин   (2003-08-17 21:41) [2]

>>IntLex

Тут видимо следует уточнить.
Надо чтобы hint все время бегал за курсором пока тот находится на
поверхности Image и показывал изменяющуюся строку подсказки.


 
Guerrillero ©   (2003-08-17 22:01) [3]

а вот так:

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
P: TPoint;
begin
GetCursorPos(P);
{ Здесь определяем hint по координатам }
Image1.Hint := IntToStr(Random(High(Integer)));
Application.ActivateHint(P);
end;



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

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

Наверх




Память: 0.47 MB
Время: 0.026 c
14-1580
Ajax
2003-08-09 12:15
2003.09.01
Новый сайт и программа


1-1399
ASt
2003-08-16 01:38
2003.09.01
Много однотипных компонентов


4-1738
Dimaxx
2003-06-28 19:17
2003.09.01
Помогите разобраться с API-функцией GradientFill


1-1425
INTAARI
2003-08-19 14:06
2003.09.01
Масивы перекрываются!!!


3-1291
Алексей Петухов
2003-08-11 08:40
2003.09.01
Удаление и восстановление записей в таблицах Visual DBase 7