Club Delphi  
    FTP   CCD     Enlaces   Buscar   Trucos   Trabajo   Foros

Go Back   Foros Club Delphi > Principal > OOP
Register FAQ Members List Calendar Guía de estilo Search Today's Posts Mark Forums Read


Reply
 
Thread Tools Display Modes
  #1  
Old 23/04/2006
chileno chileno is offline
Miembro
 
Join Date: Jun 2005
Posts: 118
chileno Va por buen camino
Obtener el dato de un TEdit

hola ...
como puedo obtener el dato de TEdit que posee el foco entre varios
Código Delphi [-]
 var
     dato : string;

     dato := (sender as TEdit). text   // algo asi ...esto esta malo eso si solo de ejemplo....
Reply With Quote
  #2  
Old 23/04/2006
dec dec is offline
Moderador
 
Join Date: Dec 2004
Posts: 11,717
dec Va por buen camino
Hola,

¿Algo así?

Código Delphi [-]
  if TEdit(Sender).Focused then
  begin
    {...}
  end;
__________________
David Esperalta
www.davidesperalta.com
Reply With Quote
  #3  
Old 23/04/2006
chileno chileno is offline
Miembro
 
Join Date: Jun 2005
Posts: 118
chileno Va por buen camino
hola david
no es que sea pesao y que me digas todo lo que debo hacer...pero como obtengo el dato y lo paso a una variable?
Reply With Quote
  #4  
Old 23/04/2006
roman's Avatar
roman roman is offline
Moderador
 
Join Date: May 2003
Location: Ciudad de México
Posts: 18,867
roman Va camino a la fama
La propiedad ActiveControl de un formulario apunta al control que tenga el foco. Entonces yo haría algo como:

Código Delphi [-]
if (ActiveControl is TEdit) then
  dato := TEdit(ActiveControl).Text;

// Saludos
__________________

Menos reyes y más elefantes
http://clubdelphi.com/correo_contacto_clubdelphi.png
Reply With Quote
  #5  
Old 23/04/2006
chileno chileno is offline
Miembro
 
Join Date: Jun 2005
Posts: 118
chileno Va por buen camino
que mas puedo decir..gracias a los dos en especial a roman...
Reply With Quote
  #6  
Old 23/04/2006
dec dec is offline
Moderador
 
Join Date: Dec 2004
Posts: 11,717
dec Va por buen camino
Hola,

No creo que seas pesado en absoluto, hombre. Ahora, que no me queda claro qué se trata de hacer... intuyo algo, pero, mi bola de cristal tiene nubes, como diría Richard Stallman en su castellano tan minúsculo como admirable.

Suponiendo que lo que te interese sea el contenido del "TEdit", esto es, el valor contenido en su propiedad "Text", discriminando además que dicho "TEdit" sea el que tenga el "foco de entrada"... queda por averiguar dónde quieres tomar el valor de dicha propiedad, en qué punto del programa.

Me explico. Supongamos un formulario con dos "TEdit" y un "TButton". En el evento "OnClick" del "TButton" queremos averiguar qué "TEdit" tiene el foco de entrada, con el fin de extraer el valor de su propiedad "Text" en una variable de tipo "string", por ejemplo.

Tenemos un problema: en el momento en que el evento "OnClick" del botón se dispare, el foco de entrada lo tendrá ya el propio botón... y no habrá "TEdit" con foco que valga.

Ahora cambiemos el escenario un poco. Tenemos un formulario con dos "TEdit", pero, en lugar de un "TButton" contamos además de con los "TEdit" con un "TSpeedButton", el cual tiene, entre otras características, la de que no toma el foco de entrada.

Entonces, al hacer clic en dicho "TSpeedButton" sí que podremos averiguar si el foco se encuentra en alguno de los "TEdit" del formulario, y, en caso afirmativo, tomar el valor de su propiedad "Text". Vamos allá, aver si adelantamos algo:

Código Delphi [-]
var
  TextoEdit: string;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  if Edit1.Focused then
    TextoEdit := Edit1.Text
  else if Edit2.Focused then
    TextoEdit := Edit2.Text
  else
    ShowMessage('Ningún Edit tiene el foco');

  // Para ver el resultado...
  ShowMessage(TextoEdit);
end;

Supongamos ahora que tenemos más de dos "TEdit" y no queremos liarnos con "if... else if...", podríamos recorrer los componentes del formulario, averiguar si el que correspoda es un "TEdit" y si además tiene el foco de entrada:

Código Delphi [-]
var
  TextoEdit: string;

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
  i: integer;
begin
  for i := 0 to ComponentCount-1 do
  begin
    if (Components[i] is TEdit) and TEdit(Components[i]).Focused then
      TextoEdit := TEdit(Components[i]).Text;
  end;

  // Para ver el resultado...
  ShowMessage(TextoEdit);
end;

Sin embargo, se al hilo de todo esto me he acordado de la propiedad "ActiveControl" del formulario en que se encuentren los "TEdit" que nos interesen. Dicha propiedad contiene el control (componente) que tiene el foco de entrada en el formulario, así pues, y, siguiendo con nuestro ejemplo de utilizar el evento "OnClick" del "TSpeedButton" podría quedarnos algo así:

Código Delphi [-]
var
  TextoEdit: string;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  if ActiveControl is TEdit then
    TextoEdit := TEdit(ActiveControl).Text
  else
    ShowMessage('Ningún "TEdit" tiene el foco');

  // Para ver el resultado...
  ShowMessage(TextoEdit);
end;

No sé. Como ves la cosa puede plantearse de varias maneras y en buena medida dependerá de lo que estés tratando de llevar a cabo. No temas explayarte en su explicación, si lo crees oportuno. Yo espero haberte dado al menos alguna que otra posible idea. La solución es cosa tuya.
__________________
David Esperalta
www.davidesperalta.com
Reply With Quote
  #7  
Old 11/05/2006
freelance freelance is offline
Registrado
 
Join Date: May 2006
Posts: 9
freelance Va por buen camino
Todo bien aunque ...

Mejor usa ControlCount y no ComponentCount
Reply With Quote
  #8  
Old 11/05/2006
freelance freelance is offline
Registrado
 
Join Date: May 2006
Posts: 9
freelance Va por buen camino
perdón ...

Usa ControlCount en vez de ComponentCount
y Controls[i] en vez de Components[i]
Reply With Quote
Reply


Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
Alinear TEdit rebollo75 Varios 2 15/11/2004 13:35
Pasar el valor de un TEdit dentro de un StringGrid a otro TEdit que está fuera atirado Varios 4 11/09/2004 20:13
obtener la clave del dato grabado? maruenda Conexión con bases de datos 6 11/05/2004 07:07
TEdit RoyTan Varios 5 26/11/2003 22:12
Array de TEdit tarco35 Varios 4 21/10/2003 10:23


All times are GMT +2. The time now is 14:07.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi