질문 내용이 점 이해가 가질 않네요....

그냥 단순히 Treeview 에 각 아이템을 클리가면

해당 아이템의 자식노드를 생성 하고 싶다는 말씀인가요?

딴질문할께여.

임의의 버튼명을 알수 있을까요 ?
즉, a,b,c,d버튼이 있다고 할때 a버튼을 눌렀을때 a 명령을 b 버튼을 눌렀을때 b 명령을 실행할려고 하는데요..
물론 같은 procedure에서요..
이렇게 하면 procedure를 줄일수 있을거 같아서요..
그리고 오른쪽 마우스를 누르면 트리에 서버아이템을 추가할려명 어캐해여 ?
그럼..

저도 질문에 의도를 잘모르겠눼요..

a,b,c 버튼은 각각에 대한 이벤트가 있으므로


이내용은 버튼 클릭이벤트에 주고 자븐 명령을 주시면되겠지요..

글고 버튼명은

showmessage(버튼명.name); 로 확인해보세요 ^^;

또 버튼 클릭이벤트에 showmessage((sender as Tbutton).name);
이렇게 하시면 클릭하신 버튼에 이름을 확인하실수 있으실껍니다.



이내용은 마우스다운 이벤트에 아이템 추가 명령을 주심 되겠네요 아래처럼요
ㅡ,.aㅡ

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);

begin

if (Button= mbRight) then
  ShowMessage('오른쪽 버튼을 누렀따');
end;



그리고 참고가 될지 모르지만 밑에 내용을 보심 기초가 되실껍니다.
어렵다 생각마시고 이해해보세요.



델파이 컴포넌트 변수 처럼쓰는 방법

컴퍼넌트마다 일일이 문자를 바꾸어야 하는경우에 한번에 바꿀수 있게 해주는 알고리즘입니다.

예를들어
label1.caption:='안영';
label2.caption:='안영123';
label3.caption:='안영123';
label4.caption:='안영3';
label5.caption:='안영334';
label6.caption:='안2131영';
label7.caption:='12313안영';
label8.caption:='안1231영';
label9.caption:='안1231영';
label10.caption:='안42342영';
label11.caption:='안영234234';
label12.caption:='안234234영';
label13.caption:='안영2342';
........................

이렇게 넣으려고 하는데요..
얼마나 짜증나는 일입니까?

label+번호.caption:=문자열;

이런구조이면 for문을 돌려 한번에 가능하지요..

이런구조를 만들어서 사용할수 있게 해주는 방법입니다.

프로그램 구조가 매우 간단해지며 눈으로도 보기 쉽게 일일이 나열하지 않아도 되므로 ..

적용할수 있는 곳이 많이 있으리라 봅니다.



function TForm1.compno(comp:string;no:integer):integer;
var
i,op:integer;
tt:tcomponent;
comp1: TComponent;
begin
comp1 := findcomponent(comp+inttostr(no));
op:=-1;
for i:=0 to componentcount-1 do begin
Tt := Components[I];
if tt=comp1 then begin op:=i; break; end;
end;
result:=op;
end;

// 예제.. button1...button10에 변수로 설정하여 captio에 문자에 1부터 10까지 쓰려면
procedure TForm1.Button4Click(Sender: TObject);
var
i,j:integer;
temp:TComponent;
begin
for j:=1 to 10 do begin
i:=compno('button',j); // -1이면 컴퍼넌트가 존재하지 않는다.
if i<>-1 then begin // 이 조건문은 틀림없이 넣어야 한다.
Temp := Components[i];
(Temp as tbutton).Caption:=inttostr(j);
end;
end;
end;