procedure TFormMain.TreeViewDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
aTreeNode:TTreeNode;
begin
if button= mbRight then
begin
aTreeNode:=TreeViewForQuest.GetNodeAt(X,Y);
if aTreeNode<>nil then
begin
aTreeNode.Selected :=true;
atreenode.Focused:=true;
end;
end;
end;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
aTreeNode:TTreeNode;
begin
if button= mbRight then
begin
aTreeNode:=TreeViewForQuest.GetNodeAt(X,Y);
if aTreeNode<>nil then
begin
aTreeNode.Selected :=true;
atreenode.Focused:=true;
end;
end;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货