Treeview의 item이 DB에 있는 데이타이면 그 데이타를 화면에 뿌려주려고

하거든요...그런데 아래와 같이 코딩하면 특정 아이템 자체 뿐 아니라 그

아이템의 주변만 클릭해도 그 아이템에 해당하는 값이 폼에 출력됩니다.

전 선택한 노드 이외의 부분 즉 빈 공간을 선택했을 때는 아무런

일도 일어나지 않았으면 좋겠거든요..어떻게 고쳐야 할까요..

도와주세요.....



procedure TMainForm.TreeView1MouseDown(Sender: TObject;

Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

var

AnItem: TTreeNode;

begin

AnItem := Treeview1.GetNodeAt(X,Y);

if AnItem = nil then exit;



if DM1.Query1.Active = true then

DM1.Query1.Close;



with DM1.Query1 do

begin

Sql.Clear;

Sql.Add('Select * from callcard.db');

Sql.Add('where Name = :p1');

ParamByName('p1').AsString := AnItem.Text;

Open;



if Fields[0].AsString <> '' then

DisplayText

else

exit;



Sql.Clear;

Sql.Add('Select * from callcard.db');

Open;

end;

end;