Escribe en un form y ocultar o visualizar datos

[david duarte]

Hola!!!

lo que pasa es que no quiero escribir dentro del edit, sino que al darle clic en la forma se pase a esta, y ahi escribirle p.e. jefe' y se haga mas grande la forma.
Si la palabra es diferente, que no haga nada.

Esto para que es???
Para yo como programador, ver si estan activas todas las tablas.
El usuario no debe de ver esas etiquetas. Pero la verdad no se me ocurre nada bueno, voy a seguir pensando e investigando a ver que se me ocurre.
De todos modos gracias!!!

Si se les ocurre otra cosa se los agradeceria.
Cómo te sientes hoy??

Se me olvidaba decirles uso delphi 5, paradox y sockets.

[roman]

Empezado por david duarte

Esto para que es???
Para yo como programador, ver si estan activas todas las tablas.

O sea que lo que quieres es incorporar una especie de modo "debug" en tu aplicación.

¿Y para qué te complicas la vida con una palabra "clave"? Simplemente usa el evento OnKeyUp del formulario con KeyPreview en activado y espera una combinación de teclas, digamos Ctrl+Alt+Shift+J (J de jefe ).

O bien haz un formulario alterno con las etiquetas prohibidas y otro sin ellas y al comienzo lees la línea de parámetros de la aplicación y sólo si la ejecutas, por decir algo con

--jefe

muestras el formulario poderoso.

En fin, seguro que hay mil ideas más, pero lo que quieres y para lo que quieres, relamente no vale la pena complicarse la existencia.

// Saludos

[david duarte]

Muchas gracias.

Lo probe, pero la verdad es que no se como ponerle para que me reconozca esa o alguna otra combinacion de teclas ya sea ctl-z, ctl+alt+z, o alguna otra, ya ,me quebre la cabeza como media hora y no me sale. lo voy a seguir intentando.
Gracias.

Cómo te sientes hoy??

[Jonnathan]

Hola David, toma nota que estos momentos de iluminación (o suerte) no los tengo muy a menudo . Coloca un TPopupMenu en la ventana, crea un item dentro ese PopupMenu y dale doble clic. En el evento de ese item vas a poner el código para cambiar el tamaño de la ventana. A ese mismo item le vas a cambiar la propiedad ShorCut por alguna que te guste, en mi caso probe con Ctrl+D (D de "Debug"). Por último, en la propiedad PopupMenu de ese formulario seleccionas el PopupMenu que acabas de crear. Inicia tu aplicación y presiona la combinación que escogiste como ShorCut del item que te mencione. COMPROBADO .
Un detalle que no sabía de Delphi y los PopupMenus que acabo de ver gracias al amigo David, cada día se aprende algo nuevo . Saludos.

[roman]

Empezado por david duarte

no se como ponerle para que me reconozca esa o alguna otra combinacion de teclas ya sea ctl-z, ctl+alt+z, o alguna otra

Es fácil. Mira, el evento OnKeyUp u OnKeyDown reciben dos parámetros (además del consabido Sender), Key y Shift. Key es el código numérico de la tecla que se haya oprimido. Así, si quieres detectar si se pulsa, digamos, la 'J', pondrías algo como:

Código Delphi [-]
if (Key = Ord('J')) then

Ord('J') será el código numérico de 'J'.

El otro parámetro, Shift, te indica que teclas modificadoras estabn apretadas al mismo tiempo. Pueden ser ssAlt, ssShift o ssCtrl. Como puede haber más de una de éstas oprimidas a la vez, Shift es realmente un conjunto.

Entonces, lo que debes hacer, además de la comparación ya vista, es comparar el conjunto Shift con el conjunto de teclas modificadoras que quieras, por ejemplo:

Código Delphi [-]
if ((Key = Ord('J')) and (Shift = [ssAlt, ssShift, ssCtrl])) then

esto es, "si está oprimida J junto con Ctrl, Alt y Shift entonces..."

// Saludos

[david duarte]

Muchas gracias a todos por sus comentarios y/o consejos, ya lo solucione, tal y como dijo roman, estaba relativamente facil, pero ya ves uno que a veces por las prisas se les pasma el cerebro o porque no, las ideas.

Jonnathan, Gracias por tu sugerencia, lamentablemente por falta de tiempo(ya tengo que entregar el sistema) no puedo probar tu consejo, pero te prometo que lo voy a checar posteriormente y porque no, si me gusta mas, lo aplicare.

Gracias a todos!!!

y felicidades roman, tienes tantos mensajes que me sorprendo, Gracias por ayudar a todos lo que casi no sabemos de delphi, por mas que me he querido adentrar en las opciones de cada una de las propiedades de los objetos me doy cuenta que me falta mucho por aprender. =) Dejenme decirles que yo no puedo por mucho responder las dudas que los demas tienen, pero los pocos consejos que he dado, espero que les haya ayudado en algo.

Muchisimas gracias.
Cómo te sientes hoy

[david duarte]

Hola a todos otra vez.
Me surgio una cuestion.
No se si se pueda que independientemente en la forma que me encuentre, si yo le pongo ctrl+J, me muestre una pantalla.
ya que con el codigo anterior, solamente me muestra la pantalla, si estoy en la forma principal, de lo contrario, no me muestra nada.

Ya estuve checando pero no logro hacer esto.

probe con

if .... vk_control+ 's' o vk_control+vk_s

pero no funciona.
Si alguien sabe donde encontrar informacion de esta se los agradeceria.
Saludos!!!

[roman]

El evento OnKeyUp sólo lo detectará el formulario al que pertenezca. Una solución es que uses un ActionList (pestaña Standard): agregas una acción y le pones Ctrl+J o la combinación que desees a su propiedad Shortcut. En el evento OnExecute de la acción codificas lo que requieras. El Ctrl+J responderá desde cualquier formulario.

// Saludos