Ver Mensaje Individual
  #2  
Antiguo 20-06-2004
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Reputación: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Usando el evento OnKeyPress de la rejilla:


Código Delphi [-]
procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
  if (StringGrid1.Col = n) and not (Key in ['0'..'9']) then
    Key := #0;
end;

// Saludos
Responder Con Cita