Показать сообщение отдельно
  #7  
Старый 04.06.2010, 13:37
SeMgA SeMgA вне форума
Прохожий
 
Регистрация: 04.06.2010
Сообщения: 5
Репутация: 10
По умолчанию

Цитата:
Сообщение от Страдалецъ
Вообще, лично для тема перемещения курсора мыши программно нова, я вот не стесняюсь в этом признаться, сейчас активно ищу рабочее решение, ибо то-что я нашел и опробовал никакого видимого результата не дало.
Вот этот код по логике должен передвигать мышу к нужному квадратику, а вот у меня что-то не передвигает

Код:
for i := 0 to ComponentCount - 1
 do if Components[i].ClassType = TMemo
    then if TMemo(Components[i]).Color = clRed
         then Mouse_Event(MOUSEEVENTF_MOVE,TMemo(Components[i]).Left,TMemo(Components[i]).Top,0,0);
А есть ли какое нить предположение как можно сделать перемещение вне программы?
Мои знания на данный момент мне не чего не говорят
Если вас не затруднит я вам написал в ICQ зайдите пожалуйста
Ответить с цитированием