pasar controles con enter

3 messages · 2 people · 5-29-2009

Paola Bruccoleri 2
Claudio Romero 1

Reply by email Subscribe to this list Your subscription

Read-only archive. Use j and k to move between messages.

Paola Bruccoleri5-29-2009 01:04 UTC

Hola..
en aquellas �pocas de delphi, en el evento
onkeypress de todos los forms, ejecutaba este evento:

      EnterTabs (Key, self);

donde, en una unit de funciones tengo esto:

type
   TMiClase = class(TWinControl);
procedure EnterTabs(Key: char; Form: TForm);
begin
      if (key =  #13) and not(Form.ActiveControl is TButton) then
         begin
             TMiClase(Form).SelectNext(Form.ActiveControl, True, True);
             Key := #0;
         end;
end;

no me est� funcionando... quiz�s por error m�o.. aunque al compilar me salta solo este warning:
funciones.pas(22,13) Warning: Class types "TForm"
and "TMiClase" are not related

quisiera saber si quiz�s hay alguna otra forma de hacerlo aqu�.. chauuuuuuuuuuuu

=======================
A/P Paola Bruccoleri Arrambide
San Jos� de Mayo - San Jos�
URUGUAY
Usuario Linux Counter: #353833 (desde 29-04-04)
Blog: http://paolabruccoleri.reducativa.com
Wiki: http://wiki.reducativa.com
Material sobre las XO:
http://www.reducativa.com/wiki/index.php?title=Proyecto_OLPC_-_Plan_Ceibal Cartillas XO Sugar 8.2:
http://www.reducativa.com/wiki/index.php?title=Cartillas_sobre_uso_de_la_XO

Visita el Portal Educativo
http://www.reducativa.com.uy

Reply by email

Claudio Romero5-29-2009 11:16 UTC

Hola
Hay poner keypreview = true en form1 y en key press del form1.

procedure TFORM1.FormKeyPress(Sender: TObject; var Key: char);
begin
	if key=#13 then
    if (ActiveControl is TEdit) then begin
    	key:=#0;
		SelectNext(ActiveControl,true, true);
	end;
end;

Con eso funciona bien

Saludos

El d�a 28 de mayo de 2009 22:04, Paola Bruccoleri <pbruccoleri en adinet.com.uy> escribi�:

Show quoted text 51 lines

Hola.. en aquellas �pocas de delphi, en el evento onkeypress de todos los forms, ejecutaba este evento: EnterTabs (Key, self); donde, en una unit de funciones tengo esto: type TMiClase = class(TWinControl); procedure EnterTabs(Key: char; Form: TForm); begin if (key = #13) and not(Form.ActiveControl is TButton) then begin TMiClase(Form).SelectNext(Form.ActiveControl, True, True); Key := #0; end; end; no me est� funcionando... quiz�s por error m�o.. aunque al compilar me salta solo este warning: funciones.pas(22,13) Warning: Class types "TForm" and "TMiClase" are not related quisiera saber si quiz�s hay alguna otra forma de hacerlo aqu�.. chauuuuuuuuuuuu ======================= A/P Paola Bruccoleri Arrambide San Jos� de Mayo - San Jos� URUGUAY Usuario Linux Counter: #353833 (desde 29-04-04) Blog: http://paolabruccoleri.reducativa.com Wiki: http://wiki.reducativa.com Material sobre las XO: http://www.reducativa.com/wiki/index.php?title=Proyecto_OLPC_-_Plan_Ceibal Cartillas XO Sugar 8.2: http://www.reducativa.com/wiki/index.php?title=Cartillas_sobre_uso_de_la_XO Visita el Portal Educativo http://www.reducativa.com.uy _______________________________________________ Lazarus-es mailing list Lazarus-es en lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es

Reply by email

Paola Bruccoleri5-29-2009 12:09 UTC

to Claudio Romero

you wrote
Hola Hay poner keypreview = true en form1

me faltaba ese peque�o detalle!!
muchas gracias
chauuuuuuuuu

Visita el Portal Educativo
http://www.reducativa.com.uy

Reply by email

Live chat for Free Pascal, Lazarus, Delphi and every Pascal programmer.

pasar controles con enter