Разблокировать кнопку

Форумы Между деломРазблокировать кнопку ← Ctrl12Ctrl →

Этот топик читают: Гость

Ответов: 893

Рейтинг: 18

#16: 2008-12-27 23:30:55 ЛС | профиль | цитата

iarspider, Dilma, помогите дописать компонент , поскольку я сам не могу толком разобратся в етом но более менее понял в чём сложность состоит ,и попробовал доработать его..

Исходник

code_11076.txt

INI компонента

code_11077.txt

Буду очень признателен естли Вы поможете , я не сильно разбираюсь в синтаксисе Delphi поэтому сам не смогу без примеров зделать... да и где их взять то...

карма: 0

Время верстки: %cr_time% Текущее время: %time%

файлы: 2

code_11076.txt [3.3KB] [175], code_11077.txt [1KB] [154]

Администрация

Ответов: 15295

Рейтинг: 1519

#17: 2008-12-28 00:30:37 ЛС | профиль | цитата

ну я подозреваю как-то так должно быть


#pas
var pos:TPoint;
      h:HWND;
begin
   GetCursorPos(pos);
   h := WindowFromPoint(pos);
   dtInteger(_Data,ChildWindowFromPoint( h, COORD_TRANSLATE(h, pos));
end;

где COORD_TRANSLATE - некая функция перевода координат из экранных в клиентские для окна h

карма: 27

https://hiasm.com

Ответов: 893

Рейтинг: 18

#18: 2008-12-28 20:00:06 ЛС | профиль | цитата

Dilma, спасибо , буду пробовать.

карма: 0

Время верстки: %cr_time% Текущее время: %time%

Ответов: 5446

Рейтинг: 323

#19: 2008-12-31 10:05:45 ЛС | профиль | цитата

Byuik, Dilma, функция COORD_TRANSLATE зовётся просто - ScreenToClient, и принимает именно такие параметры именно в таком порядке.

карма: 1

Форумы Между деломРазблокировать кнопку ← Ctrl12Ctrl →


Сообщение ...
Прикрепленные файлы (файлы не залиты)