FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
envia algo de codigo
hola
ya que la solucion mas sencilla parece que no va, tendremos que pasar a otra cosa. lo primero es saber como haces la llamada, ver en que contexto nos movemos y a partir de hay, con una idea clara de lo que hace el codigo, ver lo que podemos hacer nosotros. asi pues pon el trozo de codigo donde llamas a un popup y veremos que se puede hacer un saludo |
#2
|
|||
|
|||
aqui el codigo que intente?
esta parte es de un label , y el popup que utilizo se llama Ipmenu1 por si acaso.
En la propiedad del label donde dice popup le puse el Ipmenu1 que cree. Código:
procedure TForm1.Label1MouseEnter(Sender: TObject); Label1.Color:=clBlue; Label1.font.Color:=clYellow; Label1.PopupMenu.Popup(290,170); end; procedure TForm1.Label1MouseLeave(Sender: TObject); begin Label1.Color:= clYellow; Label1.Font.Color:=clBlue; //Label1.PopupMenu. //lpmenu1.Destroy; end; ademas no se como ocultar el popup, por que no tiene ninguna propiedad hide o visible, asi que intente destruirlo pero sale un error y no creo que esa sea la mejor solucion. Y tampoco puedo pasar al evento mousemove del form hasta que haga clic sobre el mismo. Código:
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin //form1.Label1.Color:=clBtnFace; Label1.PopupMenu.Destroy; end; |
|
|
|