Componente TreeView
03/02/2003
0
Gostaria de saber se alguem poderia me ajudar, pois necessito realizar a criacao do TreeView em tempo de execucao do sistema. Ajudaria se me mandassem um pequeno trecho de programacao para que possa analisar.
OBS.: Preciso do Nivel Principal e seu SubNivel
Grato
OBS.: Preciso do Nivel Principal e seu SubNivel
Grato
A.fracassi
Curtir tópico
+ 0
Responder
Posts
03/02/2003
Leafar
{Fracassi, basicamente o código de criação de componentes é o mesmo para os componentes nativos, então utilize este como esqueleto, o que vc vai mudar é a inclusão dos itens da árvore através dos eventos e a classe e propriedades básicas do componente:
.Items.Insert(contador)
.Items.Item[contador].SubItems.Add(Fields[indiceCampoIdentificador].Value);}
//segue exemplo
...
var
...
Instance : TControl = nil;
implementation
procedure...
var
Reference : TControlClass;
...
Reference:=TStaticText;
Instance := Reference.Create(Self);
Instance.Parent := pgcAreas.ActivePage;
TStaticText(Instance).Left:=0;
TStaticText(Instance).Top:=10;
TStaticText(Instance).Width:=70;
TStaticText(Instance).Font.Style:=[fsBold];
TStaticText(Instance).Caption:=´Expectativa´;
//espero ter ajudado
.Items.Insert(contador)
.Items.Item[contador].SubItems.Add(Fields[indiceCampoIdentificador].Value);}
//segue exemplo
...
var
...
Instance : TControl = nil;
implementation
procedure...
var
Reference : TControlClass;
...
Reference:=TStaticText;
Instance := Reference.Create(Self);
Instance.Parent := pgcAreas.ActivePage;
TStaticText(Instance).Left:=0;
TStaticText(Instance).Top:=10;
TStaticText(Instance).Width:=70;
TStaticText(Instance).Font.Style:=[fsBold];
TStaticText(Instance).Caption:=´Expectativa´;
//espero ter ajudado
Responder
Clique aqui para fazer login e interagir na Comunidade :)