сложный хук

[Biohazard]

Доброго времени уважаемые люди) На тему хуков много написано и спрошено, всё перерыл, клава и мышка легко перехватывается, но это всё не то что нужно... перехожу к сути вопроса:

Как, во время нажатия курсора на кнопку(компонент, пункт из меню и т д) в общем в любое поле, перехватить это событие, и вычислить название этого объекта.

п.с. не спешите ругаться или рассказывать про вызов геттекст через хэндл или про олеацц, это всё я знаю, и это всё не то, у многих компонентов на форме нет своего хндла, однако во время события, выполняемого при нажатии на этот компонент, событие знает, что именно нажали. кто в курсе, хэлп, очень надо, подробнее, и с примером) ^_^

[DelhiProgramer]

Прикольно, что вы задаёте этот вопрос уже не на первом форуме (http://forum.vingrad.ru/forum/topic-356153.html) и не на втором (http://www.cyberforum.ru/delphi-wina...ead647952.html). Чё, там не помогли?

[Biohazard]

задаю одновременно всегда, так больше шансов получить хоть какой то ответ, но увы не всегда и это помогает, всё не в тему пишут, как и вы

[Человек_Борща]

хахах тут хуки не нужны.
Вот так все просто:

Procedure GetCurInf;
var
HWND:Thandle;   //Хендл класса и компонента под курсором мыши
P:Tpoint;        //указатель текушая позиция мыши
Inf: array [0..256] of Char;  //массив имен классов
begin
GetCursorPos(p);
Form1.Label6.Caption:=Format(GGG,[P.X,p.Y]);
HWND:=WindowFromPoint(P);
GetClassName(HWND, Inf, SizeOf(Inf)); //получаем имя класса заносим в массив
Form1.Label1.Caption:='Имя класса: '+strpas(Inf);    //выводим имя класса из массива и показываем
Form1.Label2.Caption:='Хендл: '+IntToStr(HWND);       //поазываем хендл класса
GetWindowText(HWND,inf,255);   //получаем текст на компоненте зависящем от класса
Form1.Label3.Caption:='Название: '+strpas(Inf);     //выводим текст компонента.
end;

procedure TForm1.TimerTimer(Sender: TObject);
begin
GetCurInf;
end;