Расположение нажатого элемента управления по отношению к экрану

[Alisson R Oliveira]

Добрый день,
Ребята, я пробовал использовать компонент TPopup с TEdit, но он не получает ввод данных.
Мне нужно будет создать форму для имитации tpopup. Однако я не знаю, как получить аккорд расположения компонента относительно его расположения на холсте (где он был нарисован на шине устройства).
Может ли кто-нибудь помочь мне, как я могу это сделать?

Весьма признателен

[dnekrasov]

ClientToScreen(Edit1.LocalToAbsolute(Edit1.BoundsRect)) - может быть так?

Изменено 15 сентября, 2020 пользователем dnekrasov

[Alisson R Oliveira]

функция ClientToScreen не компилируется в TFrame

[dnekrasov]

 

21 минут назад, Alisson R Oliveira сказал:

функция ClientToScreen не компилируется в TFrame

Да, она только у TCommonCustomForm. До неё можно добраться так:

function GetOwnerForm: TCommonCustomForm;
var
  ctrl: TComponent;
begin
  Result := nil;
  ctrl := Self.Owner;
  while Assigned(ctrl) and not (ctrl is TCommonCustomForm) do
    ctrl := ctrl.Owner;

  if Assigned(ctrl) and (ctrl is TCommonCustomForm) then
    Result := ctrl as TCommonCustomForm;
end;

 

Изменено 15 сентября, 2020 пользователем dnekrasov

[Slym]

Доступ ко многим protected методам можно получить через интерфейсы:
ClientToScreen доступен через IControl, т.е. любой контрол (Ctrl as IControl).ClientToScreen
 

про поиск TCommonCustomForm - у всех контролов есть Root - TCommonCustomForm(Ctrl.Root.GetObject) (незабываем проверять nil :) )
еще есть Scene...

 

[Alisson R Oliveira]

Не могли бы вы привести более ясный пример?

[slav_z]

не ClientToScreen а LocalToScreen... оно есть у фрейма...

Пример:

LocalToScreen(TPointF.Zero) - левый верхний угол фрейма в координатах экрана,

LocalToAbsolute(TPointF.Zero) - левый верхний угол фрейма в координатах формы.