Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Положение курсора вне формы [D7, XP]

Страницы: 1 2 >
Agent89 © (2008-04-22 21:11:00)
Как узнать положение курсора на рабочем столе если форма невидима

{RASkov} (2008-04-23 22:10:00) [1]
> [20] Agent89 © (23.04.08 22:05)
> незнал о сушествовании справочника(F1), может он еще и на руском есть?

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

Andy BitOff (2008-04-23 22:10:00) [2]
А может тебе еще и ключ от квартиры где деньги лежат? ;)

Agent89 (2008-04-23 22:05:00) [3]
все! разобралсо, все получилось, спасибо
незнал о сушествовании справочника(F1), может он еще и на руском есть?

{RASkov} (2008-04-23 22:01:00) [4]
Черт, параметры немного не верно в Format оформил, но это уж сам разбирайся :)...

{RASkov} (2008-04-23 22:00:00) [5]
> [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;

Andy BitOff (2008-04-23 21:58:00) [6]
TPoint + F1

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

Agent89 (2008-04-23 21:53:00) [7]
{RASkov} все понятно, но что представляет из себя TPoint, тоесть как мне например его преобразовать в числовое значение, уже боюсь спрашивать
Andy BitOff одну читал "Иллюстрированный самоучитель по Delphi 7 для начинаюших"

{RASkov} (2008-04-23 21:48:00) [8]
> [12] Agent89 © (23.04.08 21:41)
> procedure GetCursorPos(var P: TPoint);

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

Andy BitOff (2008-04-23 21:47:00) [9]
Ты книжки по Delphi читал? Хоть одну.

{RASkov} (2008-04-23 21:46:00) [10]
> [10] Agent89 © (23.04.08 21:29)

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

Agent89 (2008-04-23 21:41:00) [11]
ну немного разобралсо
procedure GetCursorPos(var P: TPoint);
но всеравно нимогу понять как мне получить координаты

{RASkov} (2008-04-23 21:37:00) [12]
> [10] Agent89 © (23.04.08 21:29)
> наверна полный бред

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

Agent89 (2008-04-23 21:29:00) [13]
procedure GetCursorPos(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
form1.TextTrayIcon1.text:=inttostr(x)+#13+inttostr(y);
end;

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

{RASkov} (2008-04-23 21:25:00) [14]
> [8] Agent89 © (23.04.08 21:22)

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

Agent89 (2008-04-23 21:22:00) [15]
да я тока знакомсюсь с делфи
пробовал аналогично OnMouseMove

{RASkov} (2008-04-23 21:21:00) [16]
> [4] Agent89 © (23.04.08 21:12)
> поканкретней

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

{RASkov} (2008-04-23 21:14:00) [17]
> [4] Agent89 © (23.04.08 21:12)

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

Riply (2008-04-23 21:14:00) [18]
> [4] Agent89 © (23.04.08 21:12)
> поканкретней пожалуйста

F1

Agent89 (2008-04-23 21:12:00) [19]
поканкретней пожалуйста

{RASkov} (2008-04-23 21:11:00) [20]
> [2] Agent89 © (23.04.08 20:59)
> а как её использовать ?

не сложно :)

Страницы: 1 2 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »