• Viernes 8 de Noviembre de 2024, 17:05

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Temas - salvica

Páginas: [1]
1
Delphi / Tedit No Responde A Onkeypress
« en: Viernes 14 de Abril de 2006, 18:48 »
Hola a tod@s, de nuevo recurro a vosotr@s  :whistling:

Dado que el componente TEdit (dichoso) no me permite alinearlo, estoy intentando hacer una rutina genérica metiéndolo en un TPanel, pero, no sé porqué, no me responde al evento OnKeyPress

El código es el siguiente:
Código: Text
  1.  
  2. procedure TForm1.Edit_ENTRADA_OnKeyPress(Sender: TObject; var Key: Char);
  3. var
  4.   Panel : TPanel;
  5.   Alias : string;
  6. begin
  7. { esto lo pongo para seguimiento, pero por aquí no pasa }
  8.   Panel_DATOS.Caption  := '['+Alias+' ha pasado por aquí]';
  9.   if( Key=#13 ) then begin
  10.       Key := #0;
  11.       Alias                := Trim(Edit_ENTRADA.Parent.Name);
  12.     { esto lo pongo para seguimiento, pero por aquí tampoco pasa }
  13.       Panel_DATOS.Caption  := '['+Alias+']';
  14.     { buscar el panel sobre el que está puesto }
  15.       Panel                := FindComponent(Alias) as TPanel;
  16.     { copiar el texto del Edit en el Panel que lo contiene }
  17.       Panel.Caption        := Edit_ENTRADA.Text;
  18.     { quitarlo de enmedio }
  19.       Edit_ENTRADA.Visible := false;
  20.       Edit_ENTRADA.Parent  := Panel_DATOS;
  21.   end;
  22. end;
  23.  
  24.  
El TEdit lo pongo sobre un panel determinado, le doy tamaño y el foco desde el evento OnChange de un ComboBox y funciona sin problemas, pero no consigo que al acabar de meter texto se desactive y se oculte.

Se me olvidaba, Proyecto CLX, Delpi-7, Windows2K

Gracias por adelantado por la ayuda que podais prestarme
Salvica

Páginas: [1]