FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
como usar escape
buenas y felices fiestas a todos. bueno, ahi va la pregunta.
tengo un form, y veo los datos de un cliente. hago modificaciones y quiero que al pulsar la tecla escape me salga un mensaje que me avise que puedo salir sin grabar o seguir donde estoy. uso el siguiente codigo formkeydown( .... ) begin case key of vk_add : // inserto nuevo registro. funciona bien vk _ escape: begin key:=0; // botoncancelar.click - este fue un primer intento perform(cm_dialogkey,vk_escape,0); end; vk_return:begin key:=0; perform(cm_dialogkey,vk_tab,0) / esto funciona bien end; end; el problema es que al pulsar escape, las modificaciones me las borra. por lo visto la pulsacion de escape llega al dbedit. como lo arreglo? muchas gracias |
#2
|
||||
|
||||
En formularios modales, puedes poner en el botón cancelar/salir la propiedad Cancel := True, esto producirá que cuando el usuario pulse ESCape, se cierre con ModalResult = mrCancel. Para hacer la famosa pregunta, puedes utilizar el evento del mismo botón, o el OnCloseQuery del TForm.
Saludos!
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
|
|
|