procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
const
cBoolStr: array[Boolean] of string = ('False', 'True');
begin
Caption := cBoolStr[Node.Expanded];
end;
const
cBoolStr: array[Boolean] of string = ('False', 'True');
begin
Caption := cBoolStr[Node.Expanded];
end;
解决方案 »
- 关于高精度浮点运算
- 请教会点vb的,怎样能把这个vb的代码翻译成delphi的,谢谢了
- 开多个窗口后怎么让每个窗口都在任务栏上有个显示(就像MSN和多个人同时聊天时任务栏显示多个窗口一样) (急急急100分赠送)
- 天冷啦,我双加了一个叉叉,高兴散分
- 帮我看看,到底在哪里出错?
- [email protected]我是西安的一名程序员(Delphi数据库开发)愿意交流者将我加入联系人
- dbgrid的一个事件...
- 有关串口问题请教!两pc直连
- 控件数组问题:如何把N个EDIT.TEXT赋值给数组!!!--在线等待!!
- 混了几年的感慨--技术越来越不值钱了--人越来越贱了
- Kingron主页更新中.........
- quickreport的自动生成问题,高分索取源程序!!!我只有一天限期啊,急!!!
if mytreenode2.Expand = true then break;
if treeview.items[2].Expand = true then break
你的提示是什么?
[Error] Unit1.pas(559): Not enough actual parameters
Expand 这是函数
Expanded 这是属性
该休息了,晚安
谢谢 ihihonline
谢谢 zswang一人给你们10分以表谢意