ControlAtPos

← →
Vladimir88 © (2005-10-20 17:34) [0]

procedure TfmMain.ApplicationEvents1Hint(Sender: TObject); var Control:TControl; begin Control:=ControlAtPos(ScreenToClient(Mouse.CursorPos),false); showmessage(Control.Name); end;

Почему-то Control всегда нил, в чём может быть проблема.

← →
begin...end © (2005-10-20 17:40) [1]

> Vladimir88 © (20.10.05 17:34)
> Почему-то Control всегда нил, в чём может быть проблема.

Ну... Например, приведённый код не будет находить контролы, являющиеся потомками TWinControl. Может быть, в этом дело?

← →
Vladimir88 © (2005-10-20 17:47) [2]

Хм, а почему TWinControl же потомок контрола.

← →
begin...end © (2005-10-20 17:49) [3]

> Vladimir88 © (20.10.05 17:47) [2]

function ControlAtPos(const Pos: TPoint; AllowDisabled: Boolean, AllowWinControls:Boolean=False): TControl;

The AllowWinControls parameter determines whether descendants of TWinControl are considered when looking for the child control.

А, точно, стормозил, сенкс.

ControlAtPos Найти похожие ветки