Положение курсора вне формы

← →
Agent89 © (2008-04-22 21:11) [0]

Как узнать положение курсора на рабочем столе если форма невидима

← →
{RASkov} © (2008-04-22 21:27) [1]

GetCursorPos

← →
Agent89 © (2008-04-23 20:59) [2]

а как её использовать ?

← →
{RASkov} © (2008-04-23 21:11) [3]

> [2] Agent89 © (23.04.08 20:59)
> а как её использовать ?

не сложно :)

← →
Agent89 © (2008-04-23 21:12) [4]

поканкретней пожалуйста

← →
Riply © (2008-04-23 21:14) [5]

> [4] Agent89 © (23.04.08 21:12)
> поканкретней пожалуйста

F1

← →
{RASkov} © (2008-04-23 21:14) [6]

> [4] Agent89 © (23.04.08 21:12)

А как пробывал?
Просто, проще процедуры вообще без параметров, а у этой 1 только и тот "чисто" делфевый :)
Признавайся как пробывал? :)

← →
{RASkov} © (2008-04-23 21:21) [7]

> [4] Agent89 © (23.04.08 21:12)
> поканкретней

:)
А пальцы-то сумел растопырить как положено?)

← →
Agent89 © (2008-04-23 21:22) [8]

да я тока знакомсюсь с делфи
пробовал аналогично OnMouseMove

← →
{RASkov} © (2008-04-23 21:25) [9]

> [8] Agent89 © (23.04.08 21:22)

Что значит аналогично?
OnMouseMove и [1] - разные вообще-то вещи....
Ну покажи как пробывал-то...

← →
Agent89 © (2008-04-23 21:29) [10]

procedure GetCursorPos(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
form1.TextTrayIcon1.text:=inttostr(x)+#13+inttostr(y);
end;

както так, наверна полный бред =)

← →
{RASkov} © (2008-04-23 21:37) [11]

> [10] Agent89 © (23.04.08 21:29)
> наверна полный бред

:)
Полнейший.... и как до такого доходят-то?
Мдя... что, [1] и потом [5].... не помогает?
Тяжелый случай :(

← →
Agent89 © (2008-04-23 21:41) [12]

ну немного разобралсо
procedure GetCursorPos(var P: TPoint);
но всеравно нимогу понять как мне получить координаты

← →
{RASkov} © (2008-04-23 21:46) [13]

> [10] Agent89 © (23.04.08 21:29)

GetCursorPos - это винапи функция. При ее успешном выполнении, когда вернет не 0, она возвратит в единственном var параметре текущие координаты курсора мыши... Параметр типа TPoint.
Соответственно если необходимо постоянно "знать" положение, то нужно "постоянно" вызывать данную функцию, например по таймеру...
Есть еще вопросы?

← →
Andy BitOff © (2008-04-23 21:47) [14]

Ты книжки по Delphi читал? Хоть одну.

← →
{RASkov} © (2008-04-23 21:48) [15]

> [12] Agent89 © (23.04.08 21:41)
> procedure GetCursorPos(var P: TPoint);

Ты где это описание нарыл? :) Сам что ли придумал?)
Уже описано и реализовано в модуле Windows...
Тебе остается только ее корректный вызов с соответствующим параметром... и делов.

{RASkov} все понятно, но что представляет из себя TPoint, тоесть как мне например его преобразовать в числовое значение, уже боюсь спрашивать
Andy BitOff одну читал "Иллюстрированный самоучитель по Delphi 7 для начинаюших"

TPoint + F1

po: TPoint;
GetCursorPos(po);
po.X - положение указателя по горизонтали
po.Y - положение указателя по вертикали

> [16] Agent89 © (23.04.08 21:53)
> одну читал "Иллюстрированный самоучитель по Delphi 7 для начинаюших"

Врешь! Уж TPoint наверняка в той книжке есть)

var P: TPoint;
begin
if GetCursorPos(P)<>0 then Caption:=Format("Мышь в %dx%d", P.X, P.Y) else Caption:="Error";
end;

Черт, параметры немного не верно в Format оформил, но это уж сам разбирайся :)...

все! разобралсо, все получилось, спасибо
незнал о сушествовании справочника(F1), может он еще и на руском есть?

А может тебе еще и ключ от квартиры где деньги лежат? ;)

> [20] Agent89 © (23.04.08 22:05)
> незнал о сушествовании справочника(F1), может он еще и на руском есть?

Под конец добил :))))
Давай, удачи)
Зы: На русском если и есть, то это фуфло.... потому как переводов может быть много, а смысл он один - в оригинале остался)
ЗЫЫ: Я тоже как и все тут вообще незнаю англ....)
ЗЫЫЫЖ Ну может в отличии от всех я англ точно не знаю :(

Положение курсора вне формы Найти похожие ветки