Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   Uso del keypress en un edit (https://www.clubdelphi.com/foros/showthread.php?t=72502)

snake25237 23-02-2011 04:00:22

Uso del keypress en un edit
 
Hola foro, acá con dos problema la cuestión va así: tengo un stringgird el cual debo llenar mediante datos ingresados en un edit, lo que no quiero es usar un botón para proceder a llenar, quiero ingresar el dato en el edit y cuando presione enter se llene el stringgrid y se mueva el cursor a la siguiente celda.

El primer problema cuando le doy enter no pasa nada, que puede estar mal.?

Código Delphi [-]
procedure TForm2.edit1keypress(Sender: TObject; var Key: Char);
begin
IF key = #13 THEN
begin
STRINGGRID1.Cells[STRINGGRID1.Col,STRINGGRID1.Row]:=EDIT1.Text;
UNIT1.ARREGLO_ALUMNO_MATERIA[STRINGGRID1.Row+1,STRINGGRID1.Col+1]:=EDIT1.Text;
end;
end;

Y la segunda duda es como luego de presionar enter se llene y el cursor se mueva a la siguiente celda probe con esto y me da un error en el segundo punto osea el el cols.move, es algo asi:
Código Delphi [-]
STRINGGRID1.Cols.Move(STRINGGRID1.Row,STRINGGRID1.Row+1);

De antemano muchisimas gracias

saludos

LoPiTaL 23-02-2011 15:30:43

A la primera pregunta, debes reemplazar #13 por #10, ya que debes esperar un LF (line feed) y no un CR (carriage return).

A la segunda pregunta no sabría responderte, sólo sé decirte por qué te da error: el Move te está moviendo una columna entera con indice X a otra posición con índice Y. Ya que no tienes tantas columnas (Y>Cols.Count) te da error.

Espero que te haya resuelto algo.

Un saludo,
LoPiTaL


La franja horaria es GMT +2. Ahora son las 17:24:02.

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