Определение положения курсора на Image

@Vova92 · Регистрация: 16.04.2016

Студворк — интернет-сервис помощи студентам

Приветствую! Реализовывал на Delphi такую замечательную штуку:

Delphi
1
2
GetCursorPos(pt);
pt := image1.ScreenToClient(pt);

Будьте добры, подскажите как осуществить подобное на С++, есть такое, но оно работает не должным образом:

C++
1
2
GetCursorPos(&pt);
Image1->ScreenToClient(Form1->Handle,&pt);

Спасибо большое!

@Maluda · 11.10.2016, 15:41

C++
1
2
3
TPoint ACursorPt;
GetCursorPos(&ACursorPt);
ACursorPt = Image1->ScreenToClient(ACursorPt);

@Vova92 · 11.10.2016, 15:48 **[ТС]**

Спасибо огромное, скопировал в тему немного не тот код, была реализация как у вас, компилятор выдавал ошибку несовместимости типов, проблема оказалось в том, что я переменную обозначил как POINT.

@BOGG ART · 11.10.2016, 17:11

Не надо смешивать VCL и API.

C++
1
2
3
4
void __fastcall TForm1::Image1Click(TObject * Sender) {
        TPoint P = Image1->ScreenToClient(Mouse->CursorPos);
        ShowMessage(IntToStr(P.x) + " | " + IntToStr(P.y));
}

_{И на Делфи аналогично.}

Добавлено через 2 минуты

C++
1
((TImage*) Sender)->...

@Maluda · 11.10.2016, 17:42

Сообщение от BOGG ART

Не надо смешивать VCL и API

Вот лишь бы что-то ляпнуть

Исходник файла Controls.pas

Delphi
1
2
3
4
5
function TMouse.GetCursorPos: TPoint;
begin
  if not Windows.GetCursorPos(Result) then
    Result := Point(0, 0);
end;

@BOGG ART · 11.10.2016, 17:53

Реализация метода VCL тут не при чём. При разработке надо считать её чёрным ящиком. Реализация может меняться в зависимости от версии VCL и от целевой платформы.
Используем VCL - не используем API.

@Maluda · 12.10.2016, 10:05

BOGG ART,

Сообщение от BOGG ART

Используем VCL - не используем API.

Во-первых, не API, a Windows API.
Во-вторых, VCL - это библиотека визуальных компонентов, которая работает только под Windows и только используя WinAPI. И конечно она не охватывает (не оборачивает) 100% всех функций WinAPI. Я уверен, что и в твоих приложениях полно не обернутых функций таких как CreateProcess, StretchBlt и т.д.

Пруф из доки:

Visual Component Library (VCL) is an object hierarchy of visual components that are supported on Windows only (in Win32 and Win64 applications). The VCL framework does not use RTL cross-platform messaging solution; instead, it uses the Windows API messaging solution. This means that the VCL does not translate Windows messages into RTL messages for you, and VCL components communicate with each other using the Windows API as well.
For a cross-platform solution you need to migrate from VCL to FireMonkey.

Новые блоги и статьи Все статьи Все блоги /
1С: Контроль уникальности заводского номера Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью. Данные берутся из регистра сведений, по которому настроено. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git	1С: Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .
Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	1С: Программный отбор элементов справочника по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .

@Vova92 0 / 0 / 0 Регистрация: 16.04.2016 Сообщений: 6
	11.10.2016, 15:48 [ТС]
	Спасибо огромное, скопировал в тему немного не тот код, была реализация как у вас, компилятор выдавал ошибку несовместимости типов, проблема оказалось в том, что я переменную обозначил как POINT. 0

@BOGG ART 592 / 459 / 147 Регистрация: 09.12.2013 Сообщений: 2,385 Записей в блоге: 2
	11.10.2016, 17:53
	Реализация метода VCL тут не при чём. При разработке надо считать её чёрным ящиком. Реализация может меняться в зависимости от версии VCL и от целевой платформы. Используем VCL - не используем API. 0