Вверх ↑
Этот топик читают: Гость
Ответов: 11
Рейтинг: 0
#1: 2015-02-07 08:24:37 ЛС | профиль | цитата
Сори если есть решение на форуме(искал не нашел).
Стоит задача получить координаты клика мыши в системе, подскажите как это реализовать.

Add(MainForm,1431700,98,63)
{
Width=209
Point(onMouseDown)
Point(Handle)
link(onCreate,12907126:In,[])
}
Add(Timer,12474882,28,371)
{
Interval=20
link(onTimer,5597960:doReadKey,[])
}
Add(If_else,9419645,161,371)
{
Op2=Integer(1)
link(onTrue,8388019:In,[])
}
Add(Keyboard,5597960,77,371)
{
Key=1
link(onReadKey,11976760:doData,[])
}
Add(ChangeMon,11976760,119,371)
{
Data=Integer(0)
link(onData,9419645:doCompare,[])
}
Add(ListBox,846641,245,595)
{
Left=5
Top=5
Width=175
Height=240
}
Add(MouseEvent,101706,175,539)
{
}
Add(StrCatDelim,14559560,175,595)
{
Delimiter="x"
link(onStrCatDlm,846641:doAdd,[])
link(Str1,101706:MouseX,[])
link(Str2,101706:MouseY,[])
}
Add(WinTools,3651416,168,224)
{
link(Handle,7005312:Var,[])
}
Add(LineBreak,1387992,98,112)
{
Caption="Hwd_window_my_prog"
Type=1
link(Data,1431700:Handle,[])
Primary=[7005312,70,84]
}
Add(LineBreak,7014142,7,231)
{
Caption="Popup_enable_for my_prog"
link(Out,3651416:doPopup,[])
Primary=[12907126,133,-154]
}
Add(InfoTip,2256537,0,0)
{
Info=#0:|13:Главная форма|
Frame=2
Width=380
Height=151
}
Add(InfoTip,880878,0,154)
{
Info=#0:|46:Устанавливаем режим поплавок для главной формы|
Frame=2
Width=380
Height=151
}
Add(InfoTip,6520898,0,308)
{
Info=#0:|36:проверяем нажатие левой кнопки мыши |34:с интервалом определеном в таймере|
Frame=2
Width=380
Height=151
}
Add(InfoTip,14139622,0,455)
{
Info=#0:|64:Записывваем в таблицу координаты в формате XPosition x YPosition|
Frame=2
Width=380
Height=214
}
Add(LineBreak,13692213,7,595)
{
Caption="Read_X_Y_mouse_position"
link(Out,14559560:doStrCatDlm,[])
Primary=[8388019,196,-224]
}

нашел и прилепил немного коментариев
карма: 1

0
Ответов: 177
Рейтинг: 24
#2: 2015-02-07 12:55:25 ЛС | профиль | цитата
Noob писал(а):
Сори если есть решение на форуме(искал не нашел).
Стоит задача получить координаты клика мыши в системе, подскажите как это реализовать.

код

нашел и прилепил немного коментариев


Справились сами это хорошо. Вот на всякий случай еще:

code_35071.txt
карма: 1

0
файлы: 1code_35071.txt [1.9KB] [180]
2
Сообщение
...
Прикрепленные файлы
(файлы не залиты)