Mover mouse para controle (exemplo um button) no Delphi com Firemonkey.
Tentei esta função:
procedure TFuncoes.MouseParaControle(Controle: TControl);
var // Posiciona o mouse em cima do objeto definido em
IrPara: TPoint; // Ex.: MouseParaControle(button1);
begin
IrPara.X := Controle.Position.X + (Controle.Size.width div 2); // ERRO
IrPara.Y := Controle.Position.y + (Controle.size.Height div 2);// ERRO
if Controle.Parent <> nil then
begin
IrPara := Controle.PointInObjectLocal(irPara.x, irPara.Y);
//Parent.ClientToScreen(IrPara);
SetCursorPos(IrPara.X, IrPara.Y);
end;
end;
ERRO:
[dcc32 Error] Trp.Model.Funcoes.pas(214): E2015 Operator not applicable to this operand type na linha