un tButton para varios tEdit funcionando donde este el foco

[Jorgeeyv]

Perfecto mi amigo!, justo eso nececitaba!, muchas gracias por el apoyo. saludos

Empezado por ecfisa

Hola de nuevo.

Leyendo la ayuda encontré que la propiedad FMX.Forms.TCommonCustomForm.Focused es el equivalente a la propiedad ActiveControl.

Hice la siguiente prueba y funciona correctamente:

Código Delphi [-]
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
  ed : TEdit;
begin
   if Self.Focused is TEdit then
  begin
    ed := TEdit( Self.Focused );
    ed.Text := IntToStr( StrToIntDef( ed.Text, 0) +1 );
  end;
end;

Saludos