![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#9
|
|||
|
|||
![]() Hola !!
Tengo este codigo y me funciona solamente con los hijo en un treeview,ya lo que quiero que darle en el padre quitar el check de todos los hijos y nietos... procedure TFrmSeguridad.TreeView1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var node_sel,f:TTreeNode; p:tpoint; b:boolean; begin getcursorpos(p); if (TreeView1.GetNodeAt(X, Y) <> nil) then begin node_sel:=TreeView1.GetNodeAt(x,y); b:=TreeView1.GetChecked(node_sel); f:=node_sel.getFirstChild; while (f<>nil) do begin TreeView1.SetChecked(f,b); f:=f.GetNextChild(f); end; end; end; de antemano agreadezco su ayuda... |
|
|
![]() |
||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Como crear un "Cryptographic Message Syntax" en Delphi? | old_martinez | Varios | 3 | 09-12-2016 15:41:59 |
Firebird, Funciona como conexion remota, pero como local "Unavailable Database" | JuanErasmo | Conexión con bases de datos | 7 | 21-04-2008 15:38:31 |
Como crear un efecto "Hollywood" como el de Photoshop | kapullok_2006 | Gráficos | 0 | 22-11-2007 11:43:08 |
Como hacer que se vea "Si" en vez de "TRUE" en un DBGrid | lu9eui | C++ Builder | 2 | 07-08-2007 04:03:13 |
![]() |
|