VPF::Определение координат курсора

Zozik

Дата 26.11.2008, 00:24 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 19
Регистрация: 22.7.2008

Репутация: нет
Всего: нет

Есть форма заполненая рисунком, рисунок рисует программа с помощью Bitmap

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

Помогите/подскажите. Благодарен за внимание

SuperRembo

Дата 26.11.2008, 04:05 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 14
Регистрация: 24.11.2008

Репутация: нет
Всего: нет

Значение текущего местонахождения курсора Mouse.CursorPos.X и Mouse.CursorPos.Y хранит значение соответственных координат позиции курсора мышки.

Это сообщение отредактировал(а) SuperRembo - 26.11.2008, 07:39

Frees

Дата 26.11.2008, 07:47 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 16
Всего: 54

попробуй так

Код


procedure TForm1.FormCreate(Sender: TObject);
begin
  ShowHint := true;
end;

procedure TForm1.FormOnMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Hint := 'X = '+IntToStr(X)+'; Y = '+IntToStr(Y);
  Application.ActivateHint(ClientToScreen(Point(X,Y)));
end;

--------------------

Кольцов Виктор Владимирович

THandle

Дата 26.11.2008, 10:35 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 50
Всего: 372

Цитата(Frees @ 26.11.2008, 07:47

)

Hint := 'X = '+IntToStr(X)+'; Y = '+IntToStr(Y);

Не люблю я такие составные строки...
ИМХО, удобнее так:

Код


Hint := Format('%s:%d; %s:%d', ['X', X, 'Y', Y]);

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »