Последние записи

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

22nd
Июл

Определение координат мыши на форме

Posted by micher under Delphi

sincemix

Определяю координаты мыши на форме. Вот код

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

var w:Tpoint;

begin

GetCursorPos(W);

ShowMessage( '(' + IntToStr(W.X) + ' ,' + IntToStr(W.Y ) + ')' );
end;

Вроде работает, но не могу определить координаты когда навожу курсор на компонент TWebBrowser.

ZaRDaK

Положи свой код в таймер с интервалом, допустим, 50.

DIgorevich

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

procedure TForm1.Timer1Timer(Sender: TObject);

var w:Tpoint;

begin

GetCursorPos(W);

Form1.Caption:= '(' + IntToStr(W.X) + ' ,' + IntToStr(W.Y ) + ')';
end;

Пост написан при поддержке Русское Казино – В казино онлайн собрали более трёхсот азартных онлайн игр.

Рулетка – азартная игра, целью которой является угадать номер или цвет ячейки, на котором остановится шарик. Рулетка в онлайн казино – это игра на виртуальные или реальные деньги. Игровой стол рулетки в онлайн казино состоит из колеса с шариком и игрового поля, на котором игрок делает свои ставки. Колесо рулетки поделено на 36 номеров и «зеро» (0). Восемнадцать чисел — черные, восемнадцать — красные. Перед началом вращения колеса игрок делает ставки в рулетку. Ставку в интернет казино можно делать как на один номер, так и на несколько номеров. Также можно делать ставку на красное либо черное (чет/нечет). Правила игры в рулетку онлайн могут отличаться, в зависимости от вида рулетки.

тема на форуме