Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.10.16;
Скачать: [xml.tar.bz2];

Вниз

Позиция мыши   Найти похожие ветки 

 
DesWind   (2003-10-05 16:14) [0]

Как в любой момент получить координаты мыши.


 
Andriy Tysh   (2003-10-05 17:04) [1]

GetCursorPos ставиш на таймер или на отлов соответствующего сообщения


 
sniknik   (2003-10-05 19:30) [2]

в любой момент
Label1.Caption:= "X : "+IntTostr(Mouse.CursorPos.X)+" Y : "+IntTostr(Mouse.CursorPos.Y);


 
Дубинин Алексей   (2003-10-05 23:05) [3]

Совет sniknik"у. Не делай так как показал, в один прекрасный момент ты получишь ошибку в программе, хотя ничего не менял. Как и у меня перешел с ОС WinXP на sp1 и кирдык. Использовать все же лучше функции API.


 
default   (2003-10-06 03:36) [4]

to Дубинин Алексей
под Mouse.CursorPos скрывается как раз апишная GetCursorPos


 
sniknik   (2003-10-06 08:25) [5]

Дубинин Алексей © (05.10.03 23:05) [3]
в чем разница?
вот что там вызывается
function TMouse.GetCursorPos: TPoint;
begin
Win32Check(Windows. GetCursorPos(Result));
end;
из модуля Windows
функция function GetCursorPos; external user32 name "GetCursorPos";

а у тебя прога получается дополнительную проверку не пережила при переходе. (ничего не делает только код возврата проверяет)
function Win32Check(RetVal: BOOL): BOOL;
begin
if not RetVal then RaiseLastOSError;
Result := RetVal;
end;

(чегото меня заставляет думать, что кирдык у тебя настал не изза этого)


 
Anatoly Podgoretsky   (2003-10-06 08:53) [6]

Кырдык настал раньше, обнаружился позже.
А ответ верный единственный sniknik © (05.10.03 19:30) [2], поскольку остальные не в любой момент времени, а в определенный.


 
Andriy Tysh   (2003-10-06 10:28) [7]


> А ответ верный единственный sniknik © (05.10.03 19:30)
> [2], поскольку остальные не в любой момент времени, а в
> определенный.

Интересно, а как в этой строчке реализован " любой момент времени". Я что-то не увидел! Как я понял, то это тоже, что и GetCursorPos, только из Питера в Москву через Владивосток.
Билет то надо купить на путь коротший, как мне кажется.
Иль нет?


 
sniknik   (2003-10-06 10:41) [8]

Andriy Tysh © (06.10.03 10:28) [7]
> Интересно, а как в этой строчке реализован "любой момент времени".
не любой момент, а получить в любой момент. когда надо тогда и получай, вставляй эту строчку. (если по времени то это в отределенный тик, & т.д.)

> Как я понял, то это тоже, что и GetCursorPos, только из Питера в Москву через Владивосток.
не совсем так, в системе может и не быть функций WinApi (люникс к примеру), так вот я приеду (при портировании исходников на другую систему) а тебе придется таксисту платить (или поезд на другие рельсы ставить).
а даже если не переносить то нужно тогда правильно писать (с проверкой возврата и ексепта) т.е. то же самое что в дельфях. только зачем? если это уже есть (был бы смысл если программа не использует VCL, а так? никакого).



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

Форум: "Основная";
Текущий архив: 2003.10.16;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.011 c
3-51134
Ser_fantom
2003-09-24 10:55
2003.10.16
Не работает locate


3-51120
AndrewK
2003-09-24 13:00
2003.10.16
Разделение прав на строки таблицы


1-51283
Nemaster
2003-10-06 15:17
2003.10.16
В чём разница между Var и Pointer


9-51048
Арм
2003-04-15 03:57
2003.10.16
Беда с текстурами в OpeGL


1-51167
Вован
2003-10-05 13:53
2003.10.16
Как минимизировать приложение из дочерней формы?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский