un tButton para varios tEdit funcionando donde este el foco

		Foros Club Delphi > Principal > FireMonkey
un tButton para varios tEdit funcionando donde este el foco

27-07-2018

ecfisa

Moderador

Registrado: dic 2005

Ubicación: Tres Arroyos, Argentina

Posts: 10.508

Poder: 36

Hola.

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;

Saludos

__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

« Tema Anterior | Próximo Tema »

Normas de Publicación
no Puedes crear nuevos temas no Puedes responder a temas no Puedes adjuntar archivos no Puedes editar tus mensajes El código vB está habilitado Las caritas están habilitado Código [IMG] está habilitado Código HTML está deshabilitado

Saltar a Foro

Temas Similares
Tema	Autor	Foro	Respuestas	Último mensaje
Foco siempre en el mismo tedit	Viky	Varios	2	14-06-2010 18:37:06
TEdit con foco pero sin cursor	Zubat	OOP	1	13-06-2007 16:58:04
Enlazar con base de datos este donde este	4-0	C++ Builder	5	12-01-2007 20:33:00
¿Donde declaro al TEdit char para String?C++	gandalf_27	C++ Builder	2	31-05-2006 20:00:54
Clic a un tbutton y que no se quede el foco	niñotaliban	Varios	22	18-11-2005 19:45:11

La franja horaria es GMT +2. Ahora son las 20:45:00.