evitar precionar dos veces F3 para cerrar una forma....

[Arturo]

SALUDOS
cuando mando a llamar la forma de materiales es con un .showmodal, eligo el articulo desde la Dbgrid y en el evento OnKeyDown tengo esto:

if frmMaterial = nil then
frmMaterial := TfrmMaterial.Create(nil);
frmMaterial.ShowModal;

BdGridKeyDown.....
if key = vk_F3 then
ModalResult := mrOk;


Gracias