Delphi - toolbar URGENTE

 
Vista:
sin imagen de perfil

toolbar URGENTE

Publicado por oaa (67 intervenciones) el 14/05/2003 07:19:01
COMO PUEDO AGREGARLES IMAGENES A LOS BOTONES.
COMO ACTIVAR UN MENU DEDSPLEGABLE DESDE UN BOTON
GRACIAS
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:toolbar URGENTE

Publicado por Fer (269 intervenciones) el 14/05/2003 09:00:38
Primero: por favor, no escribas en mayúsculas.

Segundo: para poner imágenes en los botones de una ToolBar (asumo que ToolButtons ya que puedes arrastrar SpedButtons o botones normales), tienes que utilizar la propiedad Images de la ToolBar y la propiedad ImageIndex de cada botón. Consulta la ayuda.

Para activar un menú PopUp al pulsar un botón puedes utilizar el siguiente código:

procedure TTuForm.BotonEnCuestionClick(Sender: TObject);
var
vPos: TPoint;
begin
inherited;

{En este caso el PopUp lo voy a desplegar a la derecha del botón.}
vPos.x := BotonEnCuestion.Left + BotonEnCuestion.Width;
vPos.Y := BotonEnCuestion.Top;

{El quid de la cuestión está en que tenemos que convertir las coordenadas
relativas al contenedor del botón en coordenadas absolutas de pantalla, que
son las que entiende el PopUpMenu.}
vPos := BotonEnCuestion.Parent.ClientToScreen(vPos);

{Desplegamos el menú pop-up en la ubicación adecuada.}
PopUpMenuEnCuestion.Popup(vPos.x, vPos.y);

end;
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar