Координты курсора на форме

[Dozent]

Здраствуйте, мне надо при бездействии сворачивать приложение, решил это сделать через таймер определяя координаты курсора, но вот праблема, как считывать координаты относитлеьн оформы

Label6.Caption:=inttostr(MyMouse.CursorPos.x) + 'Õ ' + inttostr(MyMouse.CursorPos.y);

так показывает если курсор над формой но елси курсор попадает на другие компанент, то всё, коордынаты не считываются, писать в каждый
компанент на форме нереально ибо для кждого будит своя точка (0;0)

Помойму както можно сделать это черзе канвас но я не знаю как, подскажите пожайлуста решение, поиск по форуму не дал ответов

[TwiX]

просто таймером сравниваешь глобальные координаты курсора, если они равны то запускаешь другой таймер, по истечению которого сворачивается форма, но если курсор подвинется(это в первом таймере), то останавливаешь и обнуляешь второй.

Добавлено:
Вот так получаем координаты курсора:

var
  cur: TPoint;
begin
  GetCursorPos(cur);
end;

[Dozent]

ну да, а чо с чем сравнивать?
1 таймере считывать координаты и присваивать переменым? а во втором считывать и сравнивать с перемеными? так?
не могу уловить алгоритм... Бошка уже болит, целый ден ькодю

[Vladya]

я, если честно, не совсем понял что Вы имели ввиду под словом "бездействии" но как мне показалось это то что если курсор находится не на форме, так? Если да то вот код:

procedure TForm1.Timer1Timer(Sender: TObject);
Var
FormPos: TRect;
CursorPos: TPoint;
Begin
GetCursorPos(CursorPos );
FormPos:=Rect(Form1.Left,Form1.Top,Form1.Left + Form1.Width,Form1.Top + Form1.Height);
If PtInRect(FormPos,CursorPos) Then
Begin
//Реакция проекта если курсор находится над формой
End
Else
Begin
// Действие если курсор не над формой
End;
End;

[TwiX]

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

ну да, а чо с чем сравнивать?
1 таймере считывать координаты и присваивать переменым? а во втором считывать и сравнивать с перемеными? так?
не могу уловить алгоритм... Бошка уже болит, целый ден ькодю

В начале загоняем позицию курсора, например, в pos:TPoint.
Потом начинаем каждые десять мс проверять позицию курсора... Надоело писать) Вот держи (только не смог понять почему фокус форме не передаётся - она разворачивается на задний план):
Разве showwindow(form1.hadle, sw_show) не должно автоматически фокус передвать этому окну?

[andreibtzt]

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Caption := 'x='+inttostr(x) + '  Y='+ IntToStr(y);
end;

[TwiX]

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

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Caption := 'x='+inttostr(x) + '  Y='+ IntToStr(y);
end;

А если курсор за формой?

[Dozent]

TwiX, спасибо большое за код) но токок он работает один раз при запуске)) Ша буду вертеть и ешё

Application.MainFormOnTaskbar := True;

ошибку выдаёт

[raxp]

...очевидно, под бездействием автор подразумевает если пользователь мышой не шевелит, вне зависимости от того где находиться мыша...
по таймеру:

var t: tpoint;
     curx,cury,cnt: integer;

 //триггер движения-
TForm1.Timer1Timer(Sender: TObject); //interval на 1000
 getcursorpos(t);
 if (abs(t.X-curx)>5) or(abs(t.Y-cury)>5) then begin
  p:=true;
  cnt:= 0
end else begin
 p:=false;
 inc(cnt)
end;

 curx:=t.x;cury:=t.y;
 if (not p)and(cnt>4) then begin //через 4 сек
  cnt:= 0;
  hide
 end
end;

[Dozent]

ИЗ всего это упростил твой код под свои нужды

procedure TForm1.Timer1Timer(Sender: TObject);
var
  tmp:TPoint;
begin
GetCursorPos(tmp);
sleep(1000);
If (tmp.X=cur.X)and(tmp.Y=cur.Y) then Application.Minimize;
cur:=tmp;
end;

Вот мне надо чтобы при простои сворачивалась, а развртывание автоматом ненужно, но тут возникла маленькая проблема, сильно тормазит проект, както можно отладить его чтобы не тормазил, при перетаскивание форма тормазит да и ваше курсор рывками двигается, напрягает

тормазит токо форма проект...