Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2007.04.15;
Скачать: [xml.tar.bz2];

Вниз

что находится под курсором мыши?   Найти похожие ветки 

 
sia ©   (2007-02-21 17:13) [0]

курсор мыши находится за пределами окна моей программы.
мне надо определить, находиться ли он над окном проводника? и если да, то какой каталог там открыт?
как можно это сделать?


 
Игорь Шевченко ©   (2007-02-21 17:24) [1]


> мне надо определить, находиться ли он над окном проводника?
>  


SetCapture, в OnMouseMove смотреть WindowFromPoint, про каталог ничего не могу сказать


 
sia ©   (2007-02-21 17:30) [2]

я сделал
GetCursorPos(rPos) ;
hWnd := WindowFromPoint(rPos);
тем самым получил хендл окна под мышкой. и все. дальше не знаю, что делать.


 
Игорь Шевченко ©   (2007-02-21 17:37) [3]

sia ©   (21.02.07 17:30) [2]


> дальше не знаю, что делать.


GetWindowText например позволит узнать заголовок окна. Если в нем есть имя каталога, то это имя можно оттуда вычислить


 
sia ©   (2007-02-21 17:46) [4]

возвращает только строку "FolderView"


 
Игорь Шевченко ©   (2007-02-21 17:57) [5]

sia ©   (21.02.07 17:46) [4]

Как заготовка:

procedure TForm1.Button1Click(Sender: TObject);
begin
 SetCapture (Handle);
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
 Y: Integer);
var
 P: TPoint;
 H: HWND;
 AText: array[0..255] of char;
begin
 P := ClientToScreen (Point(X, Y));
 H := WindowFromPoint(P);
 if (H <> Handle) and IsWindow(H) then begin
   while GetParent(H) <> 0 do
     H := GetParent(H);
   GetWindowText(H, AText, SizeOf(AText));
   Edit1.Text := AText;
   ReleaseCapture;
 end;
end;


 
sia ©   (2007-02-21 18:03) [6]

GetParent помог.
спасибо :)



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2007.04.15;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.047 c
15-1172733217
Сало
2007-03-01 10:13
2007.04.15
Может кому понадобится...


15-1174227698
Суслик
2007-03-18 17:21
2007.04.15
Дети в тестировании


2-1174575033
elserpiente
2007-03-22 17:50
2007.04.15
Реализация TOP в FB


15-1174223869
eXPell
2007-03-18 16:17
2007.04.15
Функция?!...


2-1174652467
Num8er
2007-03-23 15:21
2007.04.15
как копировать файлы с именами в UNICODE?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский