FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
TCategoryButtons
¿Algún ejemplo?
No consigo que el resto de categorías se "autocolapsen" cuando se abre una de ellas. Cita:
Última edición por dec fecha: 06-09-2007 a las 11:24:53. |
#2
|
||||
|
||||
Amigo, bienvenido al club, creo que te haría bien darle una leida a la guía de estilo.
Suerte
__________________
Conoce mi blog http://www.edgartec.com |
#3
|
||||
|
||||
Estoy de acuerdo con poliburro, la verdad es que es muy complicado ayudarte si no nos das mas detalles.
P.D. La guia de estilo esta en http://www.clubdelphi.com/foros/guiaestilo.php.
__________________
Lecciones de mi Madre. Tema: modificación del comportamiento, "Pará de actuar como tu padre!" http://www.purodelphi.com/ http://www.nosolodelphi.com/ |
#4
|
||||
|
||||
Hola,
El caso es que tiene su miga. Resulta que el componente tiene un evento "OnCategoryCollapse" que se dispara cuando se colapsa o expande una categoría. Yo he intentado ahí que cuando una categoría se expanda el resto de colapse (que creo que es lo que necesita el compañero), pero, nada, que no ha habido manera. |
#5
|
|||
|
|||
thanks for replay,
I'm Italian so it's easy to 'read' your language but difficult to write I read all founded page with google or yahoo about TCategoryButtons without found nothing functional I know: Código:
procedure Form1.SelectCategoryCollapase(Sender: TObject; const Category: TButtonCategory); begin ... end; The BEST strange things are: if I make one routine and write, at beginnig, one Showmessage( {variable.get} ); // just for example I have one working procedure, if I delete the 'ShowMessage' I have one NOT working procedure and system error I beginning to think this component have some BUG ... or I have more BUG of it _________________________ Because I found less example about this component i post some functional example I have found/discovered/realized: Create Items into Group (I use it into While .. do routine): var aButton : TButtonItem; NPNL : integer; ... abutton := select.categories[1].items.add; // add button item into TCategoryButtons (called 'select') into categoryGroup n.1 abutton.Caption := 'some text' ; // add TextName of button item select.Categories[1].items[NPNL].onclick := Gruppo1; // add OnClick property (procedure: Gruppo1) - NPNL is one integer and are incremented into While cycle or somethings you like ------------------ procedure Form1.Gruppo1(Sender: TObject); var Pulsante: TButtonItem; Riga : integer; begin ... Riga := 0; Pulsante := Select.SelectedItem; // select are Name of TCategoryButtons Riga := Pulsante.Index; // Riga are Item Clicked ... _________________________ |
#6
|
||||
|
||||
Hola,
Cita:
|
|
|
|