VPF::Приложение,Курсор - Форум программистов

Молоток

Дата 3.4.2008, 22:25 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 41
Регистрация: 3.4.2008

Репутация: нет
Всего: -2

Задача в том.
У меня есть преложение.
Я определяю его кординаты через TRect и хочу установить курсов в центре верхней строке названия другими словами: надо установить курсов над приложением по центру.
Но курсор слетает в бок, помогите исправить!
Вот код:

Код


procedure TForm1.Button1Click(Sender: TObject);
var H:HWND;
Rect: TRect;
pt:tpoint;
begin
SetRectEmpty(Rect);
H := findwindow(nil, 'Form1');
GetWindowRect(H,Rect);
getcursorpos(pt);
setcursorpos(Rect.Top, Rect.Left);
mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
end;

Это сообщение отредактировал(а) Молоток - 3.4.2008, 22:39

Wolfgan

Дата 4.4.2008, 08:07 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 21
Регистрация: 20.3.2008

Репутация: нет
Всего: нет

Смещается курсор потому что ты его устанавливаешь в координатах окна, а курсор перемещается по экрану. У него отсчет идет от края экрана всегда.
Соответственно эти координаты надо пересчитать. Делается это функцией ClientToScreen и соответственно наоборот ScreenToClient. Посмотри в помощи smile

Начну из далека.... smile

Не понятно зачем так сложно получаешь хендал окна и его координаты???? Все гораздо проще

Код


var
   h: THandle;
   pr: TPoint;
begin
   h := Form1.Handle; // вот тебе и HWND, только нам оно не нужно

   pt.X := Form1.Width div 2;  // центр окна по ширине
   pt.Y := Form1.Height div 2;

   // координаты окна и экрана не совпадают, потому их нужно конвертировать
   pt := Form1.ClientToScreen(pt);
   SetCursorPos(pt.x, p.y);
end;

З.Ы.: Дельфы под рукой нету, не проверял, но вообще должно работать. По крайней мере направление знаешь.

Молоток

Дата 4.4.2008, 10:29 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 41
Регистрация: 3.4.2008

Репутация: нет
Всего: -2

Wolfgan, Привет,
Спасибо запомошь но твой пример мне не подойдёт.
Я получаю HWND по имени окна (Курсор будет размешатся к любому произвольному окну), Мне надо разместить курсор мышки на верхушки окна по центу!
Зная кординаты окна. НО Я немогу высчитать правельно помогите!

Rrader

Дата 4.4.2008, 12:52 (ссылка)

(нет голосов)

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 70
Всего: 191

По центру заголовка:

Код


Procedure TForm1.Button1Click(Sender: TObject);
Var
  H: THandle;
  R1, R2: TRect;
  X, Y: Integer;
Begin
  H := FindWindow(NIL, 'Form1');
  GetWindowRect(H, R1);
  Windows.GetClientRect(H, R2);
  X := (R1.Right + R1.Left) Div 2;
  Y := ((R1.Bottom - R1.Top) - (R2.Bottom - R2.Top)) Div 2;
  Y := (R1.Top + Y);
  SetCursorPos(X, Y);
  mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
  mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
End;

--------------------

Let's do this quickly!
Rest in peace, Vit!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »