Я хочу получить каждое действие, особенно позицию фокуса. Я делаю код, как это, но результаты, полученные, если компонент выше других компонентов, получают неправильное значение. что не так в следующем коде?
procedure TForm1.FormFocusChanged(Sender: TObject);
var
LFocused : TControl;
LFocusRect: TRectF;
P: TPointF;
begin
if Assigned(Focused) then
begin
LFocused := TControl(Focused.GetObject);
LFocusRect := LFocused.AbsoluteRect;//to get height,top,etc
P := ClientToScreen(LFocused.Position.Point);
Text1.Text := 'Y '+ P.Y.ToString;
end;
end;
это интерфейс
![enter image description here](https://i.stack.imgur.com/POpQx.png)