Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Gráficos
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 14-03-2009
IgnacioHaro IgnacioHaro is offline
Miembro
 
Registrado: oct 2007
Posts: 19
Poder: 0
IgnacioHaro Va por buen camino
Question Duda con TTreeView

buenas tardes,

espero me puedan ayudar con mi duda, tengo un TTreeView y necesito que NO se abra (expand) ni se cierre (Collapse) el arbol con el doble clic, hay alguna forma de evitar eso, es q lanzo un evento en el doble clic y no quiero que se habra o se cierre el arbol, gracias.
Responder Con Cita
  #2  
Antiguo 16-03-2009
Avatar de Caro
*Caro* Caro is offline
Moderadora
 
Registrado: jul 2004
Ubicación: Cochabamba, Bolivia
Posts: 2.544
Poder: 22
Caro Va por buen camino
Hola, primero debes mostrar tu treeview ya expandido y en el evento OnCollapsing, pones lo siguiente:

Código Delphi [-]
procedure TForm1.TreeView1Collapsing(Sender: TObject; Node: TTreeNode;
  var AllowCollapse: Boolean);
begin
 AllowCollapse := False;
end;

Saluditos
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar.
Responder Con Cita
  #3  
Antiguo 17-03-2009
IgnacioHaro IgnacioHaro is offline
Miembro
 
Registrado: oct 2007
Posts: 19
Poder: 0
IgnacioHaro Va por buen camino
Question

Hola Caro ,

ya intente eso pero como puedo saber si se esta expandiendo o cerrando por un doble clic ? si primero se lanza el evento OnCollapsing y despues el evento OnDblClick

lo que quiero es q si se pueda expander o cerrar pero dandole clic al boton que tiene el arbol para eso, no con doble clic
Responder Con Cita
  #4  
Antiguo 17-03-2009
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Poder: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
No sé si haya una forma sencilla de hacer esto. Como dices, los eventos OnExpanding y OnCollapsing se lanzan antes del evento OnDblClick, y de hecho, antes que cualquier evento del ratón.

Sin embargo, lo que sí parece ejecutarse antes de estos eventos es el mensaje WM_LBUTTONDBLCLK que recibe el TreeView. Así que, lo único que se me ha ocurrido hasta el momento es crear un descendiente del TreeView que levante una bandera al momento de recibir dicho mensaje, para que el OnExpanding detecte que se ha lanzado como consecuencia de un doble clic.

Al crear un derivado de un control, más que con los eventos, se acostumbra trabajar con los métodos que lanzan esos eventos, que en este caso son CanExpand y CanCollapse.

También, para no tener que crear e instalar un nuevo componente, podemos "sobreescribir" el original declarando la nueva clase con el mismo nombre y antes de la declaración del formulario.

En resumen, así:

Código Delphi [-]
type
  TTreeView = class(ComCtrls.TTreeView)
  private
    DoubleClicked: Boolean;
    procedure WMLButtonDblClk(var Msg: TWMLButtonDblClk); message WM_LBUTTONDBLCLK;
  protected
    function CanExpand(Node: TTreeNode): Boolean; override;
    function CanCollapse(Node: TTreeNode): Boolean; override;
  end;

  TForm1 = class(TForm)
    TreeView1: TTreeView;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TTreeView }

function TTreeView.CanExpand(Node: TTreeNode): Boolean;
begin
  Result := inherited CanExpand(Node) and not DoubleClicked;
  DoubleClicked := false;
end;

function TTreeView.CanCollapse(Node: TTreeNode): Boolean;
begin
  Result := inherited CanExpand(Node) and not DoubleClicked;
  DoubleClicked := false;
end;

procedure TTreeView.WMLButtonDblClk(var Msg: TWMLButtonDblClk);
var
  TestInfo: THitTests;
  Pt: TPoint;

begin
  Pt := Point(Msg.XPos, Msg.YPos);
  TestInfo := Self.GetHitTestInfoAt(Pt.X, Pt.Y);

  // Aquí señalamos que hubo un doble clic sobre la etiqueta del item
  DoubleClicked := htOnLabel in TestInfo;

  inherited;
end;

No estoy cien por ciento seguro de que se cubran todos los casos pero creo que por ahí puede ir la solución.

// Saludos
Responder Con Cita
  #5  
Antiguo 17-03-2009
Avatar de Caro
*Caro* Caro is offline
Moderadora
 
Registrado: jul 2004
Ubicación: Cochabamba, Bolivia
Posts: 2.544
Poder: 22
Caro Va por buen camino
Cita:
Empezado por IgnacioHaro Ver Mensaje
ya intente eso pero como puedo saber si se esta expandiendo o cerrando por un doble clic ? si primero se lanza el evento OnCollapsing y despues el evento OnDblClick
Hola de nuevo, no creo que mi solución sea mejor que la de Roman, esto es lo que se me ocurre a mi, en el evento OnDobleClick.

Código Delphi [-]
procedure TForm1.TreeView1DblClick(Sender: TObject);
begin
 if Not TTreeView(Sender).Selected.Expanded then
  TTreeView(Sender).Selected.Expand(True);
 
 //tu codigo...............
end;

Saluditos
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

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

Temas Similares
Tema Autor Foro Respuestas Último mensaje
TTreeView en un objeto cepriego OOP 2 18-02-2008 18:19:22
ScrollBar en TTreeView jzk OOP 0 08-03-2005 19:56:15
Imagenes en TTreeview cso2000 OOP 3 13-12-2004 21:13:22
Seleccion en tTreeView Investment OOP 2 02-07-2004 10:36:32
lineas en Ttreeview elpezfuma OOP 4 30-05-2003 23:52:18


La franja horaria es GMT +2. Ahora son las 16:26:14.


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