Датчик вращения мыши.

[Jeraldino74]

Конечно в ту Label. Уже и Edit5.text пробовал. Ни как. Ничего не помогает

[Sciv]

проект не скинете? Я посмотрю на месте, а то так уже совсем непонятно становится...

[Jeraldino74]

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

проект не скинете? Я посмотрю на месте, а то так уже совсем непонятно становится...

Edit'y5 не пугайтесь, это пробовал к нему привязать.

[Sciv]

Все ясно. Во-первых, у Вас длина Лабел6=0 (рис. 1)



Во-вторых, Вы, видимо, код события TForm1.FormMouseMove просто скопировали, а потом вручную в классе объявили, а к форме его привязать забыли. Надо даблкликом вот тут щелкнуть (рис. 2):

[Jeraldino74]

Не ну то, что Lable6 маленький, это ерунда, он автоматически растянется под заданный текст. :-)

А вот то, что я скопировал это верно Стыдно. НЕ знал, что так не прокатывает. Спасибо.

Осталось реализовать самое главное. :-) Скорость мышки и собственно по сабж.

[Sciv]

НЕ знал, что так не прокатывает.

Добавлю: просто это событие привязывается не только в коде программы, но и в коде dfm-файла, который создается с юнитом. У Вас первое было, а второго не было.


UPD. Поздравляю, Вам досталось мое инфернальное сообщение - №666

[Jeraldino74]

Вот опять, без вашей помощи мне кажись не обойтись.

procedure TForm1.Button3Click(Sender: TObject);
var centrX, centrY: integer;
begin
  centrX:= (Screen.Width) div 2;  // Ïåðåìåííîé ïðèñâàèâàåì: ñåðåäèíà øèðèíà ðàá. ñòîëà
	centrY:= (Screen.Height) div 2; // Ïåðåìåííîé ïðèñâàèâàåì: ñåðåäèíà âûñîòû ðàá. ñòîëà
  SetCursorPos(centrX, centrY);  // Ставим курсор в центр раб. стола
  if Mouse.CursorPos=SetCursorPos(centrX, CentrY) then Edit1.Text:='Начало координат';

end;

Ругается на "красное". Я так понимаю на Mouse.CursorPos. Так как:

if SetCursorPos(centrX, CentrY)=SetcursorPos(centrX, centrY) then Edit1.Text:='Начало координат'
    else Edit1.Text:='калямаля';

не ругается. Но это отрывок я написал, сам не понял, что написал.

По идее разумно "синее" поменять на Mouse.CursorPos(centrX, centrY), то должно работать. Опять же поправьте меня, не сразу написав ответ, а только указав на ошибку.
Сам думаю, что не объявил какую-то процедуру(у меня с ними туго).

[Sciv]

  centrX:= (Screen.Width) div 2;  // Ïåðåìåííîé ïðèñâàèâàåì: ñåðåäèíà øèðèíà ðàá. ñòîëà
	centrY:= (Screen.Height) div 2; // Ïåðåìåííîé ïðèñâàèâàåì: ñåðåäèíà âûñîòû ðàá. ñòîëà

Если работает на форме, то тут, наверное, лучше от формы, а не от скрина плясать?

if Mouse.CursorPos=

Слазьте в Хелп Дельфы и поглядите внимательно иерархию объекта TMouse.

[Jeraldino74]

А у меня хелпа нету в Дельфях Пиратку какую-то скачал. Version 7.0 (Build 4.453) под Windows XP(Build 7601: Service Pack 1).
Вот.

Пойду нарою в интернете, или если у вас есть хелп, скиньте ссылку и куда его внедрить в папку.

Всё оказалась намного проще.

Не удается открыть файлы справки в формате Справки Windows (WinHlp32.exe)

Хорошо, что я с Лицензией на ноуте сижу.

Мде справка мне не очень помогла. Вопрос:

function GetCursorPos(var Point: TPoint);

- это ведь стандартная функция. Я её объявляю и могу использовать?

Ругается не пойму на что. Вообщем.

procedure TForm1.Button3Click(Sender: TObject);
var centrX, centrY: integer;
CursorPos: TPoint;
begin
  centrX:= (Screen.Width) div 2;  // 
  centrY:= (Screen.Height) div 2; // 
  SetCursorPos(centrX, centrY);  // Установка курсора в центр рабочего стола
  if GetCursorPos=SetCursorPos then Edit1.Text:='Начало координат';
end;

Всплывает окно с ошибкой: "Expected ':' but ';' found. Что ему не нравится. И ссылается на

function GetCursorPos(var Point: TPoint);

[Sciv]

Объясняю, что я имел в виду: нет у класса TMouse такого метода или свойства Mouse.CursorPos

function GetCursorPos(var Point: TPoint);

и

GetCursorPos=

Где параметр типа (var Point: TPoint); в Вашем коде?

И еще:

Sets the value of the CursorPos property.

Delphi syntax:

procedure SetCursorPos(const Value: Integer); virtual;

и

Return mouse cursor position.

Unit QControls

Category mouse handling utilities

Delphi syntax:

procedure GetCursorPos(var P: TPoint);

Обратите внимание, что Вы в коде пытаетесь сравнить две ПРОЦЕДУРЫ!
Причем, что интересно, буквально на предыдущей строчке все используется правильно:

SetCursorPos(centrX, centrY);

Вариант: как-то по другому нужно сравнение производить. Например, получать X и Y с помощью той же GetCursorPos (точнее - объявить переменную curpos: TPoint и обращаться к свойствам curpos.X,curpos.Y) и сравнивать уже их.