VPF::Уточнение по теме Cursor - Форум программистов

NieL

Дата 10.2.2008, 18:11 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 214
Регистрация: 10.2.2008

Репутация: 1
Всего: 1

Хотелось бы уточнить еще один момент: а что если на форме находится панель со вложенными компонентами (например Button'ами). То как вывести их name.

Код


procedure TForm1.ApplicationEvents1Idle(Sender: TObject;    
  var Done: Boolean);    
var    
  lControl: TControl;    
  lPnt: TPoint;    
begin    
  GetCursorPos(lPnt);    
  lControl := ControlAtPos(ScreenToClient(lPnt), False, True);    
  if Assigned(lControl) then    
    Caption := lControl.Name;    
end;

NieL

Дата 10.2.2008, 18:37 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 214
Регистрация: 10.2.2008

Репутация: 1
Всего: 1

Все нашел требуемую функцию:
Теперь все OK...

Код


procedure Tform_Color_Range.ApplicationEvents1Idle(Sender: TObject; var Done: Boolean);
var
 Control: TControl;
 P: TPoint;
begin
 GetCursorPos(P);
 Control := FindDragTarget(P, True);
 if Assigned(Control) then
   Caption := Control.Name;
end;

VICTAR

Дата 10.2.2008, 18:42 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник
Сообщений: 1108
Регистрация: 6.10.2006

Репутация: 37
Всего: 80

Тогда тебе надо брать ControlAtPos и ScreenToClient компонента-родителя

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »