un tButton para varios tEdit funcionando donde este el foco

[Casimiro Notevi]

Pon tu código, no podemos adivinar, además de que no explicas nada, eso de "No logro nada con el codigo mi amigo" no nos sirve para saber qué está ocurriendo

[Jorgeeyv]

Lo que pasa es que el codigo:

Código Delphi [-]

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
  ed: TEdit;
begin
  if ActiveControl is TEdit then
  begin
    ed := TEdit(ActiveControl);
    ed.Text := IntToSTr(StrToIntDef(ed.Text,0)+1);
  end;
end;

no me hace absolutamente nada,, la idea es hacer que con el speedbutton sume un digito ( +1) al tEdit que tenga foco, tomando en cuenta que tengo varios tEdit,
simplemente al tener seleccionado un tEdit que tiene el numero 7, al presionar el speedButton ponga 8. es un speedButton para todos mis tEdit, devera modificar solo el que tenga foco.


Este codigo me modifica solo un tEdit en este caso el tEdit1

Código Delphi [-]
procedure TForm1.tSpeedbuttonClick(Sender: TObject);
begin
  tEdit1.Text := IntToSTr (StrToIntDef (tEdit1.Text, 0) + 1)
end;

Empezado por Casimiro Notevi

Pon tu código, no podemos adivinar, además de que no explicas nada, eso de "No logro nada con el codigo mi amigo" no nos sirve para saber qué está ocurriendo

[jafera]

Empezado por Jorgeeyv

Este codigo me modifica solo un tEdit en este caso el tEdit1

procedure TForm1.tSpeedbuttonClick(Sender: TObject);
begin
tEdit1.Text := IntToSTr (StrToIntDef (tEdit1.Text, 0) + 1)
end;

Y es correcto que solo modifique tEdit1


Primero debes saber en que tEdit tienes el foco y pasar el valor a este tEdit, sino siempre ira al tEdit1, analiza bien el codigo proporcionado por Ecfisa


Saludos

[Jorgeeyv]

Muchas gracias por tu aporte, exacto, pero lo que nececito es que el speedButton funcione en cada tedit que tenga foco, para no tener que poner un speedbutton para cada tEdit.
es decir solo le sume (+1) en el tEdit que presione, si cambio el foco a el tEdit9 (por asi decirlo) me modifique el tEdit9.

Empezado por jafera

Y es correcto que solo modifique tEdit1


Primero debes saber en que tEdit tienes el foco y pasar el valor a este tEdit, sino siempre ira al tEdit1


Saludos

[Neftali [Germán.Estévez]]

Por favor utilizad TAGs cuando añadáis código Delphi.