Скачать: CL | DM;

Перехват Текста под мышью.   Найти похожие ветки 

← →
DDF   (2002-12-25 08:33) [0]

Уважаемые Мастера, подскажите. Мне необходимо чтоб прога перехватывала текст Меню и Контекстного меню другой проги. К примеру моя прога содержит Label и весит себе спокойно, теперь я мышью навожу на какую нибудь строку меню или контекстного меню другой виндовской проги в Label моей проги помещается эта строка.
За ранее благодарю.

---

← →
Song ©   (2002-12-25 10:57) [1]

MenuItemFromPoint()

---

← →
DDF   (2002-12-25 11:40) [2]

Подскажите как MenuItemFromPoint() пользоваться

---

← →
Song ©   (2002-12-25 11:45) [3]

Нажимаешь Ctrl+F1 на названии.

---

← →
DDF   (2002-12-25 11:55) [4]

У меня в Help-е ни чего не нашлось.

---

← →
DDF   (2002-12-25 12:56) [5]

Ни кто не подскажит как это реализовать?

---

← →
Song ©   (2002-12-25 13:06) [6]

Меню хэлп - Win SDK

---

← →
DDF   (2002-12-25 13:31) [7]

ОК, нашел.
Вопросик как определить HWND окна над которым мышь.

---

← →
Song ©   (2002-12-25 13:32) [8]

WindowFromPoint()

---

← →
DDF   (2002-12-25 13:47) [9]

Я новичек в этом деле, не могли бы описать последовательность как моя прога должна вытащить текст.
Я так понимаю надо сначало как то перехватить движение мыши и имея координаты через WindowFromPoint() определить HWND окна. Затем как-то определить на каком объекте в окне установлен курсор и затем, с помощью неизвестных пока мне функции, вытащить из этого объекта текст.
Как должно быть?

---

← →
DDF   (2002-12-25 14:07) [10]

HWND определил, как найти HMENU

---

← →
Lady D ©   (2002-12-25 14:11) [11]

HMENU := GetMenu(HWND)

---

← →
DDF   (2002-12-25 14:18) [12]

MenuItemFromPoint() обработал, теперь как вытащить текст меню?

---

← →
Song ©   (2002-12-25 14:32) [13]

GetMenuString(), ещё наверно способы есть. Ты бы в хэлп-то глянул..

---

← →
DDF   (2002-12-25 14:47) [14]

Я уж глянул, только вылетает у меня GetMenuString() с ошибкой
d:=GetMenuString(M,1,BUF,100,MF_BYPOSITION);
где
M:HMENU;
d:integer;
Buf:Pchar;

---

← →
DDF   (2002-12-25 14:53) [15]

И подскажите как uIDItem вытащить

---

← →
Song ©   (2002-12-25 14:57) [16]

GetMenuItemID - логично, да?
Я тебя сейчас научу. Ищешь помощь по GetMenu(), потом нажимашешь Group и видишь группу инструкций, который предназначены для работы с меню. Вот тама и смотри!

---

← →
DDF   (2002-12-25 16:18) [17]

Подскажите, что не так?
Куда не наважу мышь всегда d=-1

procedure TForm1.Timer1Timer(Sender: TObject);
var
P: TPoint;
H: HWND;
M: HMENU;
d:integer;
begin
GetCursorPos(p); //Координаты мыши
Edit1.Text:=inttostr(p.x);
Edit2.Text:=inttostr(p.y);
H:=WindowFromPoint(p); //HWND окна под мышью
M := GetMenu(H);
d:=GetMenuItemCount(M); //Количество Item в меню
end;

---

← →
Song ©   (2002-12-25 16:25) [18]

Вроде Almaz говорил что контексные через GetMenu() невозможно получить. Сам не пробовал, вот решил через Вас выяснить..

---

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

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.01 c