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

[Levsha100]

Таймеры юзать это уже извращенство

var
 mposition:tpoint;
----------------------------------
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
   mposition.X:=X;
   mposition.Y:=Y;
   Caption:=IntToStr(mposition.X)+'|'+IntToStr(mposition.Y);
end;

Блин, протупил.

[raxp]

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

- обратите внимание еще раз на приведенный мною код

[Dozent]

raxp, твой алгоритм не работает...

Levsha100, это будит работать ан чистой форме, а если на ней ест ьдругие компаненты, тогда не будт, да и вообше это токок в пределох формы проекта. а надо какбы по максимуму

[Lime]

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

raxp, твой алгоритм не работает...

sleep(10*1000); - и форма будет спать 10 секунд.

[raxp]

raxp, твой алгоритм не работает...

- специально для вас Dozent, вот работающий пример по моему алгоритму...

[Dozent]

procedure TForm1.Timer1Timer(Sender: TObject);
var
  tmp:TPoint;
  n:byte;
begin
GetCursorPos(tmp);
If (tmp.X=cur.X)and(tmp.Y=cur.Y) then inc(n) else n:=0;;
sleep(10);
iF n>5 then Application.Minimize;
cur:=tmp;
end;

НУ допустим пришёл к такому варианту Но как всегда таймер даёт о себе знать! минимизация идёт не черзе 5 сек с интервалом равным 1000, а через 2 сек на компе с большей частотой ЦП будит ешё быстрее класна, над осистемнео время включать...

[raxp]

- вы ставите sleep тормозящий все события, а потом удивляетесь почему время не такое... уж тогда ставьте перед sleep - application.processmessages, шоб события разблокировать...

пы-сы: видимо вы не заметили, перед вашим постом кинул рабочий проект

[TwiX]

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

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

Application.MainFormOnTaskbar := True;

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

Всё работает прекрасно =)
Applicatiob.MainFormOnTaskBar - это делфи 2009 - Вам можно стереть)


Добавлено:
ЕСли не выворачивается после тряски курсора - замените
ShowWindow(Form1.Handle, SW_SHOW); на ShowWindow(Form1.Handle, SW_SHOWNORMAL);

Должно работать)

[Dozent]

raxp, спасиб вашим кодом и воспользуюсь.ю тодогнав под свои нужды, соответствует 4 секндам...
TwiX, сворачивается токльо один раз в начале и всё, развёртывание номрально идёт