| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

ControlAtPos [D7, WinXP]

Vladimir88 ©   (2005-10-20 17:34:00) 

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

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

---

Vladimir88   (2005-10-20 17:50:00) [1]

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

---

begin...end   (2005-10-20 17:49:00) [2]

> 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.

---

Vladimir88   (2005-10-20 17:47:00) [3]

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

---

begin...end   (2005-10-20 17:40:00) [4]

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

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

---

Наверх