¿Cómo cerrar un Grid desde el OnKeyDown?

[pfsoft]

Cojo un Grid de la paleta de componentes y lo suelto enel formulario, sin enlazar con DataSet alguno, sólo lo que he dicho. En el evento OnKeyDown del Grid pongo lo siguiente:

if (Key = VK_F4) and (ssCtrl is Shift) then
DBGrid1.Free;

Sale Error Access violation.....


?????

[pfsoft]

no es ssCtrl is Shift, lo correcto es ssCtrl in Shift. Pero no és por ésto por lo que falla. Es que me he equivocado al escribirlo en el foro.

[[BlueSteel]]

Hola

Podrias acrarar si es un StringGrid o un DBGrid..... existe una gran diferencia...

si es un StringGrid... lo que puedes hacer es lo sgtes

para borrar todo debes poner algo así

Código Delphi [-]
procedure TForm1.Limpia_Items;
Var
   i : Integer;
Begin
     For i := 0 To StringGrid1.RowCount -1 Do
        StringGrid1.Rows[i].Clear;
     StringGrid1.RowCount := 1;
End;

declaro un procedimiento para limpiar el StringGrid... y este proceso lo realiza independiente de cuantas filas tenga tu StringGrid

Espero que te sirva.. ahh.. y debes explicar mejor lo que quieres hacer.. así uno no anda adivinando...

me falto.. para limpiar en el evento onkeydown, solo debes poner el nombre del procedimiento anterior...

Código Delphi [-]
procedure TForm1.StringGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
      Limpia_Items;
end;

y con eso estaria listoko

[[gluglu]]

Entiendo que lo que utiliza pfsoft es un TDBGrid.

La verdad es que probé lo que dice y es cierto : dá error. Intentas poner un DBGrid en un form sin más, y después intentas hacer un Free del DBGrid en tiempo de ejecución (sin cerrar el propio form), y salta un error.

No sé el porqué, así que no pude dar mayores explicaciones.

Por otro lado, tal y como dije, lo que no sé es por qué hacer un Free del DBGrid en tiempo de ejecución. Pero en eso no me meto.

La solución que yo veo de momento (pero que no soluciona el problema planteado), es poner el Visible := False