Имя компонента...

[prizrak1390]

Доброе время суток.
Подскажите пожалуйста, как узнать над каким компонентом(например Button или Edit) находится курсор мыши...и при этом не используя событие OnMouseMove??

[Stilet]

Например так:

procedure TForm1.Timer1Timer(Sender: TObject);
var t:TWinControl;
begin
t:=FindVCLWindow(Mouse.CursorPos);
if t<> nil then caption:=t.ClassName;
end;

Если конечно этот компонент VCLный.

А чем собсно OnMouseMove не устроило?

[prizrak1390]

ToStilet
Просто мне нужно узнать имя динамически созданного компонента.

[Stilet]

Ну так что мешает накрутить этому компоненту OnMouseEnter ?

[prizrak1390]

Так удобнее в том плане, что в нужный момент я могу отключить таймер

[Stilet]

Спорить не буду но не согласен.

[mihali4]

Просто мне нужно узнать имя динамически созданного компонента

А почему сразу, в процессе создания, не назначить имя? И обращаться к нему будет удобно... По имени...

[prizrak1390]

toStilet
Я понимаю, что можно и по другому. Но Ваш вариант с таймером мне больше всего подходит
toMihali4
Ну потому, что создаётся огромное количество компонентов и мне пришлось бы работать с массивами что-бы всех запомнить и корректно обратиться...Но вариант с таймером исключает такую необходимость.

[Stilet]

и мне пришлось бы работать с массивами что-бы всех запомнить и корректно обратиться

Ничего подобного делать не обязательно. Если задавать будеш имя в котором будет присутствовать счетчик, то никаких массивов не нужно.

[pu4koff]

procedure TForm1.Timer1Timer(Sender: TObject);
var
  p: TPoint;
  c: TControl;
begin
  GetCursorPos(p);
  p := ScreenToClient(p);
  c := ControlAtPos(p,false,true);
  caption := inttostr(p.x)+', '+ inttostr(p.y)+' - ';
  if c<> nil then caption := caption + c.Name;
end;