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

[Alexandr17-10]

забыл добавить что компоненты не на форме а на других компонентах находятся например панели кнопок на панели находятся

[Nater]

сумма left-ов. Какая проблема товарищ?

[Alexandr17-10]

кажется нашел способ

procedure TLib_Ed_2.Timer1Timer(Sender: TObject);
var Cur:TPoint;
  lControl: TControl;
begin
  GetCursorPos(Cur);
  if (Cur.X >self.left)and(Cur.X <self.left+self.Width)and(Cur.y >Self.top)and(Cur.y < Self.top+Self.Height) then begin
    lControl := ControlAtPos(cur, True, True);
    Label3.Caption :=  'Èìÿ êîìïîíåíòà: '+FindVCLWindow(Cur).Name;
  end;
end;

а теперь проверяем если это тот компонент который нужен то делаем то что захочим

[northener]

И всё-таки это костыли, имхо. Если надо что-то делать при заходе указателя мыши на контрол/уходе с контрола надо использовать CM_MOUSEENTER/CM_MOUSELEAVE. Даже если версия Дельфи сравнительно старая.

[Аватар]

Зачем таймер вообще? Для наследников WinControl

  TForm1 = class(Forms.TForm)
    ...
  private
    procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
  end;

procedure TForm1.CMMouseEnter(var Message: TMessage);
var xWinControl: TWinControl;
    xPoint: TPoint;
begin
  inherited;
  Label1.Caption:='';
  GetCursorPos(xPoint);
  xWinControl:=FindVCLWindow(xPoint);
  if (xWinControl<>nil) and (xWinControl<>Self) then Label1.Caption:=xWinControl.Name;
end;

[alextrof94]

Сообщение от Аватар

Зачем таймер вообще? Для наследников WinControl

  TForm1 = class(Forms.TForm)
    ...
  private
    procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
  end;

procedure TForm1.CMMouseEnter(var Message: TMessage);
var xWinControl: TWinControl;
    xPoint: TPoint;
begin
  inherited;
  Label1.Caption:='';
  GetCursorPos(xPoint);
  xWinControl:=FindVCLWindow(xPoint);
  if (xWinControl<>nil) and (xWinControl<>Self) then Label1.Caption:=xWinControl.Name;
end;

зыбыл ему про mouseleave рассказать

[Аватар]

зыбыл ему про mouseleave рассказать

Он там и не нужен, достаточно CMMouseEnter

[northener]

Для наследников WinControl

Почему только TWinControl? Для всех наследников TControl.

[Аватар]

Ну попробуйте для SpeedButton-а

[northener]

Сообщение от Аватар

Ну попробуйте для SpeedButton-а

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons;

type
  TForm1 = class(TForm)
    SpeedButton1: TSpeedButton;
  procedure CMMouseEnter(var Mes: TMessage); message CM_MOUSEENTER;
  procedure CMMouseLeave(var Mes: TMessage); message CM_MOUSELEAVE;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.CMMouseEnter(var Mes: TMessage);
begin
  if (TControl(Mes.LParam) is TSpeedButton) and (TControl(Mes.LParam) = SpeedButton1) then 
    SpeedButton1.Caption:='Ent'
  else inherited;
end;

procedure TForm1.CMMouseLeave(var Mes: TMessage);
begin
  if (TControl(Mes.LParam) is TSpeedButton) and (TControl(Mes.LParam) = SpeedButton1) then
    SpeedButton1.Caption:='Lv'
  else inherited;
end;

end.

Д6. Полет нормальный.