大送58分,请教TListView的问题 以上的三个问题我都解决了。如果你把这个题目的分加到100并且把分给我,就把程序示例的zip文件发到你的mail中。保证解决你的问题,童叟无欺。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 我也想要,收到即给分 [email protected] to:78product() 你挺贪心的呀. 中子,小兵: 信已经发出,请注意查收。如果没有收到,请马上给我写信:[email protected] 呵呵~~11:35了,也该睡觉了。还有谁要的,留下mail 给我份好吗?[email protected],多少分? 右键弹出菜单的例子procedure TfrmMain.TreeViewMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);var Node:TTreeNode;begin TreeView.PopupMenu := nil; if Button <> mbRight then exit; Node := TreeView.GetNodeAt(X,Y); if Node <> nil then begin Node.Selected := true; TreeView.PopupMenu := popDir; end;end;关于拖放的例子,到处都是,看看书就知道了 78product:我还没有收到。已经给你写了信,如果还没收到,麻烦您给[email protected]发一下,收到后马上给分! Delphi 怎样学习 Delphi的 VCL 怎样在线升级Exe自己? 求excel和word的接口定义说明 有谁现在用Nokia 8910这款手机呢?我想买,先了解一下性能。 free掉的组件如何再次使用??? 数据输入问题,有点烦,麻烦各位进来看看 record already locked by this session 的錯誤訊息 管家婆進銷存軟件在哪可下載? 怎样显示一个提示 关于Tquery问题---新手 征集代码 ??如何实现对查询到记录设置颜色!!
[email protected]
你挺贪心的呀.
中子,小兵: 信已经发出,请注意查收。如果没有收到,请马上给我写信:
[email protected]
还有谁要的,留下mail
procedure TfrmMain.TreeViewMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
Node:TTreeNode;
begin
TreeView.PopupMenu := nil;
if Button <> mbRight then exit;
Node := TreeView.GetNodeAt(X,Y);
if Node <> nil then
begin
Node.Selected := true;
TreeView.PopupMenu := popDir;
end;
end;
关于拖放的例子,到处都是,看看书就知道了
已经给你写了信,如果还没收到,
麻烦您给[email protected]发一下,
收到后马上给分!