Programación General > Delphi

 Llenar Un Arreglo

<< < (2/2)

Enko:

--- Cita de: "Perrero" --- bueno solo quiero un caracter por celda y ademas me di cuenta que no puedo introducir datos por teclado en cada celda o esuqe acaso hay una propiedad q activa eso, pero weno con las que voy probando no pasa nada.
--- Fin de la cita ---
en la propiedad Options del TStringGrid (fijate en la paleta de propiedades) pone la opcion "goEditing" en True;

Luego usa el evento SetEditTExt así:

--- Código: Text --- procedure TForm1.StringGrid1SetEditText(Sender: TObject; ACol,  ARow: Integer; const Value: String);var   myChar: Char;begin   StringGrid1.Cells[ACol, ARow] := '';   if Length(Value) &#62; 0 then myChar := Value[1];   if (myChar in ['0'..'9']) then    StringGrid1.Cells[ACol, ARow] := myChar;end;  

Al final te adjunto un proyecto de Delphi 7, que al parecer hace lo que vos quieres.

Perrero:
Muchas gracias, me sirvio de mucho, pero tuve que borrar la linea


--- Código: Text ---StringGrid1.Cells[ACol, ARow] := ''; 
ya que sino no me dejaba escribir naa. Gracias...

Enko:

--- Cita de: "Perrero" --- Muchas gracias, me sirvio de mucho, pero tuve que borrar la linea


--- Código: Text ---StringGrid1.Cells[ACol, ARow] := ''; 
ya que sino no me dejaba escribir naa. Gracias...
--- Fin de la cita ---
que raro. lo probé y me funcionaba.  ;)

Igualmente tambien pensé en sacar esa linea y lo hice y seguia funcionando pero la deje por si acaso.

Navegación

[0] Índice de Mensajes

[*] Página Anterior