курсор с компонентом

[ASЯ]

Как можно перемещать за курсором компонент (или просто текст), на котором отображается меняющаяся надпись (таймер)?

[ex.cluz]

Язык какой?

[ASЯ]

Delphi 7.0 Таймер отсчитывает секунды между кликами

Вот это не получается, потому что нужно просто отображать текст, а не рисовать квадратики по всему экрану:

Scr := TCanvas.Create;
Scr.Handle := GetDC(HWND_DESKTOP);
...
cp:=mouse.CursorPos;
Scr.TextOut(cp.X,cp.Y,'1111');

[ex.cluz]

Поподробнее можно?
Если курсор перемещается только над формой, то достаточно легко.
А если формы не должно быть видно, то сложнее. Вам как надо?

[ASЯ]

форма прозрачная , видно только несколько Shape-ов. А это должно происходить по всему экрану

Конечно можно растянуть форму на весь экран, но очень не хочется, тем более, что желательно, чтобы это работало и при других запущеных приложениях. Сама проблема в том, чтобы перемещать компонент.

[ex.cluz]

Вот помню же, что недавно такая тема поднималась!

ASЯ, кросспостинг тут не поощряется.

...однако задание интересное...
сейчас посмотрю, НО ничего не обещаю

[ASЯ]

Прошу прощения, если повторяюсь, но я ещё спрашивала про отлавливание клика по экрану, но про отображение таймера не объяснили..

[ex.cluz]

Что значит "по экрану"? т.е. за пределами формы?

[ASЯ]

Да. Для этого, наверно придётся ставить хук на событие мышки, но с этим проблемы уже почти нет. А за пределами формы Canvas надписи перерисовывается по таймеру постоянно, но не убирает предыдущее изображение. Очень некрасиво..

[ex.cluz]

Я бы предложил прикрепить к курсору отдельную маленькую форму с BorderStyle:=bsNone и TLabel, в которой и отображать секунды.