VPF::Определить координаты контрола

Ch0bits

Дата 6.4.2006, 16:16 (ссылка)

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

Загрузка ...

Python Dev.

Профиль
Группа: Завсегдатай
Сообщений: 2124
Регистрация: 21.2.2005
Где: Казань

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

Необходимо по заданной точке на экране определить какой контрол под ней находится, а так же его координаты и размеры.

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

Quizful - новый портал с классными IT тестами!

_hunter

Дата 6.4.2006, 16:28 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

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

WindowFromPoint а потом GetWindowRect

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

Tempora mutantur, et nos mutamur in illis...

Демо

Дата 6.4.2006, 16:44 (ссылка)

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

Загрузка ...

Эксперт

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

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

Ch0bits,
В своем VCL-приложении или нет? TControl, TWinControl, Window WIN32API?

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

Yanis

Дата 6.4.2006, 17:39 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

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

2 Ch0bits

Код


function GetCursorPos: TPoint;
begin
  Windows.GetCursorPos(Result);
end;

function GetWindowRect(h: DWORD): TRect;
begin
  Windows.GetWindowRect(h, Result);
end;

function GetClassName(h: DWORD): string;
var
  s: PChar;
begin
  GetMem(s, MAX_PATH);
  Windows.GetClassName(h, s, MAX_PATH);
  Result := s;
  FreeMem(s);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  h: DWORD;
  r: TRect;
begin
  h := WindowFromPoint(GetCursorPos);
  if h > 0 then
    begin
      r := GetWindowRect(h);
      with Memo1.Lines do
        begin
          Add(Format('Класс окна: %s', [GetClassName(h)]));
          Add(Format('Размеры: (%d, %d)', [r.Right-r.Left, r.Bottom-r.Top]));
          Add(Format('Координаты: (%d, %d)', [r.Left, r.Top]));
          Add('');
        end;
    end;
end;

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

*щёлк*

Ch0bits

Дата 6.4.2006, 20:15 (ссылка)

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

Загрузка ...

Python Dev.

Профиль
Группа: Завсегдатай
Сообщений: 2124
Регистрация: 21.2.2005
Где: Казань

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

Вот и замечательно. Спасибо всем! smile

Yanis, лови плюс. smile

Это сообщение отредактировал(а) Ch0bits - 6.4.2006, 20:16

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

Quizful - новый портал с классными IT тестами!

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