[Lazarus-es] pasar controles con enter

[Claudio Romero]

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ó:
> 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
>