Ver Mensaje Individual
  #14  
Antiguo 20-01-2011
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Cita:
Empezado por fide_uci Ver Mensaje
Tengo una Duda. Como los nodos que son de tipo Grupo, llevan un menu diferente a los que son de Tipo usuario, o sea un Popup_menu que es distinto para cada uno. Como asigno un popup a un nodo y otro popup_menu a otro tipo de nodo?
Algo que se me ocurre es verificar en el evento OnMouseDown sobre que nodo estas y asignar a la propiedad PopupMenu del TreeView el PopupMenu correspondiente:
Código Delphi [-]
procedure TForm1.TreeView1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbRight then
    if TreeView1.Selected.HasChildren then
      TreeView1.PopupMenu:= PopupMenu1 // Grupo
    else
      TreeView1.PopupMenu:= PopupMenu2; // Otros
end;

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 20-01-2011 a las 07:57:01.
Responder Con Cita