procedure TForm1.treeview1MouseDown(Sender: TObject; Button: TMouseButton;  Shift: TShiftState; X, Y: Integer);
begin
   button1.SetFocus;
end;

서영재 님이 쓰신 글 :
: Enable 속성말고, 안되게 하는방법 없나요?
: Enable를 False로 해버리는 아이템 글색까지 바뀌더군요
:
: 아이템색은 그대로 유지한체 말그대로 클릭해도 아무변화없이(아이템 선택안되게) 하는 방법 없을까요?
: 빈 TImage컴포넌틀를 위에다 얹어봤는데 소용없더군요.