Не срабатывает клик мыши в указанных координатах

[Sony_boy]

Здарова. Вот код который должен эмулировать клик мыши в указанных координатах

procedure TForm1.Button1Click(Sender: TObject);
 var x,y: word;
begin
x := Round(x * (992 / Screen.Width));
y := Round(y * (9 / Screen.Height));
SetCursorPos(x, y);
mouse_event(MOUSEEVENTF_LEFTDOWN, x, y, 0, 0);
mouse_event(MOUSEEVENTF_LEFTUP, x, y, 0, 0);
end;
end.

Но при нажатии на кнопку, форма программы скрывается, и клик в указанных координатах не проходит. Из-за чего???

[p51x]

А где вы задаете начальные значения x, y? Или думаете 0 можно умножать без последствий?

[Sony_boy]

Сообщение от p51x

А где вы задаете начальные значения x, y?

Ну вот так и задаю:

x := Round(x * (992 / Screen.Width));
y := Round(y * (9 / Screen.Height));

а что не правильно?

[DIONISKA]

procedure TForm1.Button1Click(Sender: TObject);
var x,y: word;
begin
...
x := Round(x * (992 / Screen.Width));
y := Round(y * (9 / Screen.Height));

У вас здесь всегда будет x=0 и y=0. Клик происходит, но в нулевую точку.

[Sony_boy]

Сообщение от DIONISKA

У вас здесь всегда будет x=0 и y=0. Клик происходит, но в нулевую точку.

А как правильно написать?

[DIONISKA]

А как правильно написать?

В x,y должны быть корректные значения, например

  x:=992;
  y:=9;
  SetCursorPos(x, y);
  mouse_event(MOUSEEVENTF_LEFTDOWN,  0,  0, 0);
  mouse_event(MOUSEEVENTF_LEFTUP, 0,  0, 0, 0);

к слову в mouse_event если не установлен флаг MOUSEEVENTF_ABSOLUTE нужно указывать не положение курсора, а его сдвиг. Т.е. в этом случае 0

[Sony_boy]

Сообщение от DIONISKA

В x,y должны быть корректные значения, например

  x:=992;
  y:=9;
  SetCursorPos(x, y);
  mouse_event(MOUSEEVENTF_LEFTDOWN,  0,  0, 0);
  mouse_event(MOUSEEVENTF_LEFTUP, 0,  0, 0, 0);

к слову в mouse_event если не установлен флаг MOUSEEVENTF_ABSOLUTE нужно указывать не положение курсора, а его сдвиг. Т.е. в этом случае 0

При компиляции ошибка:
Not enought actual parameters

[northener]

Сообщение от DIONISKA

У вас здесь всегда будет x=0 и y=0. Клик происходит, но в нулевую точку.

Практически никогда не будет ноля. Будет "мусор". Локальные переменные не инициализируются.

[DIONISKA]

Сообщение от Sony_boy

При компиляции ошибка:
Not enought actual parameters

один аргумент пропустил в

 mouse_event(MOUSEEVENTF_LEFTDOWN,  0,  0, 0, 0);

Сообщение от northener

Практически никогда не будет ноля. Будет "мусор". Локальные переменные не инициализируются.

Теоретически возможно что он будет, но впрочем да, этого я не учёл, однако рандомный "мусор" ничем не лучше.