Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Приложение,Курсор

Автор: Молоток 3.4.2008, 22:25

Задача в том.
У меня есть преложение.
Я определяю его кординаты через 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;

Автор: Wolfgan 4.4.2008, 08:07

Смещается курсор потому что ты его устанавливаешь в координатах окна, а курсор перемещается по экрану. У него отсчет идет от края экрана всегда.
Соответственно эти координаты надо пересчитать. Делается это функцией 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

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

Автор: Rrader 4.4.2008, 12:52

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

Код


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;