Модераторы: Snowy, bartram, MetalFan, bems, Poseidon, Riply
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> как пол. коорд. курсора мыши над TScroll 
:(
    Опции темы
devmstr
Дата 11.4.2005, 07:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Developer
**


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

Репутация: нет
Всего: 11
Но не относительно формы, а относительно самого компонента.
Например я обрабатывал MouseMove, но координаты показываются относительно формы, тоесть прокрутка не влияет на координату...
Помогите плиз.. вопрос нормально сформулировать у меня не получилось, но я старался...


--------------------
Think different ©Steve Jobs 
user posted image
PM MAIL WWW   Вверх
p0s0l
Дата 11.4.2005, 09:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Г-н Посол
****


Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 14
Всего: 112
Попробуй прибавлять к координатам X и Y значения HorzScrollBar.Position и VertScrollBar.Position...




--------------------
С уважением, г-н Посол.
PM   Вверх
Girder
Дата 11.4.2005, 11:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Лентяй 2
***


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

Репутация: 25
Всего: 155
Код
...
var
  Form1: TForm1;
  OldClientWndProc:Pointer;

implementation

{$R *.dfm}

function NewClientWndProc(Wnd:HWND; Msg:UINT; wParam:wParam; lParam:lParam):LRESULT; stdcall;
var p:TPoint;
begin
 Result:=CallWindowProc(OldClientWndProc,Wnd,Msg,wParam,lParam);
 if (Msg=WM_HSCROLL)or(Msg=WM_VSCROLL)or(Msg=WM_Setcursor) then
  begin
   GetCursorPos(p);
   Windows.ScreenToClient(WindowFromPoint(p),p);
   Form1.Caption:=IntToStr(p.X)+';'+IntToStr(p.Y);
  end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
 OldClientWndProc:=pointer(GetWindowLong(Memo1.Handle,GWL_WNDPROC));
 SetWindowLong(Memo1.Handle,GWL_WNDPROC,integer(@NewClientWndProc));
end;



--------------------
Как слышим, так и пишим.
Истина где-то там...
PM   Вверх
devmstr
Дата 11.4.2005, 15:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Developer
**


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

Репутация: нет
Всего: 11
Спасибо, это именно то, что мне было нужно!


--------------------
Think different ©Steve Jobs 
user posted image
PM MAIL WWW   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: WinAPI и системное программирование"
Snowybartram
MetalFanbems
PoseidonRrader
Riply

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Delphi обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • 99% ответов по WinAPI можно найти в MSDN Library, оставшиеся 1% здесь

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, bartram, MetalFan, bems, Poseidon, Rrader, Riply.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: WinAPI и системное программирование | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0712 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.