Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Coloboración Paypal con ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 30-06-2003
jfontane jfontane is offline
Miembro
 
Registrado: may 2003
Posts: 60
Poder: 22
jfontane Va por buen camino
desplegar menu

Hola a todos, mi problema es el siguiente tengo un menu principal parecido a esto 1-Sistema 2-Base de Datos 3-Ayuda.
Lo que quiero hacer es apretar el 1 (ALT - 1 No!!) y que me despliegue el menu sistema. Segurmente sera desde keypress si key = ordinal de 1. pero que evento ejecuto para que me despliegue el menu sistema por ejemplo,
ondesplegar()

Saludos
Responder Con Cita
  #2  
Antiguo 03-07-2003
Avatar de acertij022
acertij022 acertij022 is offline
Miembro
 
Registrado: may 2003
Ubicación: Argentina-Bs. As.
Posts: 233
Poder: 22
acertij022 Va por buen camino
el codigo sria algo asi:

procedure TFMain.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key in ['1'] then
begin
Fmain.PopupMenu1.Popup(550,60); //abro el menu
Fmain.PopupMenu1.Items[1].Click; // hago click en el item número 1
end;
end;

Tene en cuenta poner KeyPreview poner en True en el formulario.

Espero haberte ayudado

salud2



PD:= Hoy por tí mañana por mi

Última edición por acertij022 fecha: 03-07-2003 a las 16:16:39.
Responder Con Cita
  #3  
Antiguo 10-07-2003
jfontane jfontane is offline
Miembro
 
Registrado: may 2003
Posts: 60
Poder: 22
jfontane Va por buen camino
Yo busco algo asi pero que trabaje con el Mainmenu (este es con popupmenu).

Salu2
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 01:33:05.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi