트리뷰에 이미지를 넣는것에 대해서 질문입니다.
하나의 버튼이 있고 트리뷰가 하나 있고, 그리고 이미지리스트박스가 하나 있습니다.
이때, 트리뷰에서 root노드를 셀렉트한 후에 aaa라는 버튼을 누르면
root
aaa
이렇게 자식노드가 추가 됩니다.
그런데요...
여기서 root를 셀렉트한 다음 aaa라는 버튼을 누르면 a1이미지를 같이 추가 하고 싶습니다.
이렇게요...
root
a1_image aaa
그런데...이게 잘 안되네요...ㅠ.ㅠ
코딩은 이렇게 했거든요..맞는것 같은데...자꾸 에러가 나네요.. -.-
procedure TForm1.aaaBtClick(Sender: TObject);
begin
if TreeView1.Selected.Text = 'root' then
begin
TreeView1.Items.AddChild(TreeView1.Selected, 'aaa');
TreeView1.FullExpand;
TreeView1.Images := ImageList1;
TreeView1.Items.Add.ImageIndex = 0;
end;
end
[Error] main.pas(866): Not enough actual parameters
이런 에러가 뜨는데...무슨 파라메타값을 더 줘야 되는지 모르겠습니다.
도움을 주십시요.
여기 질문란을 서치해서 보았더니 단순히 트리뷰를 셀렉트했을때 그 셀렉트된 노드의
이미지를 바꾸는것이더군요.
저는 셀렉트하고 추가되는 자식노드에 이미지를 넣고 싶습니다.
문법 좀 도움을 주십시요.
procedure TForm1.Button1Click(Sender: TObject);
begin
if TreeView1.Selected.Text = 'root' then
begin
TreeView1.Images := ImageList1;
with TreeView1.Items.AddChild(TreeView1.Selected, 'aaa') do
begin
ImageIndex := 0;
SelectedIndex := 1; // 선택되었을때의 그림.
MakeVisible; // 오무라지지 않고 펼쳐지게 한다.
Selected := True; // HideSelection 이 False일 경우에는 새로 생성된
// 노드가 선택된 것이 보일 것입니다.
end;
end;
end;
도움이 되셨길...
써니 wrote:
> 트리뷰에 이미지를 넣는것에 대해서 질문입니다.
>
> 하나의 버튼이 있고 트리뷰가 하나 있고, 그리고 이미지리스트박스가 하나 있습니다.
> 이때, 트리뷰에서 root노드를 셀렉트한 후에 aaa라는 버튼을 누르면
> root
> aaa
> 이렇게 자식노드가 추가 됩니다.
> 그런데요...
> 여기서 root를 셀렉트한 다음 aaa라는 버튼을 누르면 a1이미지를 같이 추가 하고 싶습니다.
> 이렇게요...
> root
> a1_image aaa
> 그런데...이게 잘 안되네요...ㅠ.ㅠ
>
> 코딩은 이렇게 했거든요..맞는것 같은데...자꾸 에러가 나네요.. -.-
>
> procedure TForm1.aaaBtClick(Sender: TObject);
> begin
> if TreeView1.Selected.Text = 'root' then
> begin
> TreeView1.Items.AddChild(TreeView1.Selected, 'aaa');
> TreeView1.FullExpand;
> TreeView1.Images := ImageList1;
> TreeView1.Items.Add.ImageIndex = 0;
> end;
> end
>
> [Error] main.pas(866): Not enough actual parameters
>
> 이런 에러가 뜨는데...무슨 파라메타값을 더 줘야 되는지 모르겠습니다.
> 도움을 주십시요.
> 여기 질문란을 서치해서 보았더니 단순히 트리뷰를 셀렉트했을때 그 셀렉트된 노드의
> 이미지를 바꾸는것이더군요.
> 저는 셀렉트하고 추가되는 자식노드에 이미지를 넣고 싶습니다.
> 문법 좀 도움을 주십시요.
>