un tButton para varios tEdit funcionando donde este el foco

[Jorgeeyv]

Si de hecho si tenia en cuenta eso mi amigo, encontre el problema, el codigo me sirve solo si estoy en un proyecto VCL Form Aplication y mi proyecto lo inicie en Multi Device Aplication, en esta ultima no me funciona el codigo... hay alguna manera de cambiar el tipo de form, de Miltidevice a VCL? o la otra, que funcione tu codigo en multidevice? el proyecto esta avanzado, me llevaria mucho tiempo poder inicarlo de nuevo

[ecfisa]

Hola.

y mi proyecto lo inicie en Multi Device Aplication, en esta ultima no me funciona el codigo...

Ah... no sabía que era Firemonkey, ya moví el tema al foro correspondiente.

hay alguna manera de cambiar el tipo de form, de Miltidevice a VCL? o la otra, que funcione tu codigo en multidevice? el proyecto esta avanzado, me llevaria mucho tiempo poder inicarlo de nuevo

Así de pronto no sé, pero voy a revisar.
Lo bueno que al estar ahora en el foro correspondiente, mas expertos en cross platform te podrán responder.

Saludos

[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

[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