Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.11.13;
Скачать: CL | DM;

Вниз

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.


 
Vladimir88 ©   (2005-10-20 17:50) [4]

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



Страницы: 1 вся ветка

Текущий архив: 2005.11.13;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.024 c
1-1129203791
VIsa
2005-10-13 15:43
2005.11.13
Помогите разобраться с прозрачностью в TPNGImage


9-1119938373
4ECHOK
2005-06-28 09:59
2005.11.13
[RagDoll] Синтез движений персонажа


14-1129786438
Udaff
2005-10-20 09:33
2005.11.13
ТВ-тюнер


14-1129899930
oldman
2005-10-21 17:05
2005.11.13
Эстония купила (или взяла на время) у НАТО стелс...


1-1129813791
markers
2005-10-20 17:09
2005.11.13
Высота и ширина PopUp`a