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;
Cita:
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
|