Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Alex_ITA01,
10. Dez 2004
und im TreeViewClick sagst du dann:
case TreeView.Selected.Index of
0 : begin
TreeView.Selected.ImageIndex := 0;
TreeView.Selected.SelectedIndex := TreeView.Selected.ImageIndex;
end;
1 : begin
TreeView.Selected.ImageIndex := 1;
TreeView.Selected.SelectedIndex := TreeView.Selected.ImageIndex;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Alex_ITA01,
10. Dez 2004
im Form Show:
var
MainTree : TTreeNode;
begin
MainTree := TreeView.Items.Add(NIL,'TEST1');
MainTree.ImageIndex := 0;
MainTree := TreeView.Items.Add(NIL,'TEST2');
MainTree.ImageIndex := 1;