procedure TForm1.DirectoryListBox1Change(Sender: TObject);begin
FileListBox1.Directory := DirectoryListBox1.Directory;
if FileListBox1.Items.IndexOf('AUTOEXEC.BAT') > -1 then
begin
Color := clYellow;
Label1.Caption := 'You are in the root directory!';
end;end;
FileListBox1.Directory := DirectoryListBox1.Directory;
if FileListBox1.Items.IndexOf('AUTOEXEC.BAT') > -1 then
begin
Color := clYellow;
Label1.Caption := 'You are in the root directory!';
end;end;
解决方案 »
- Delphi 下hook API
- TTntStrings要用到哪些控件啊?找了半天了 各位帮忙
- 消息
- 如何在TreeView的节点展开时改变它的图像?
- 客户端通过服务器写其它客户端联系的网络程序,应用什么样的控件去编写?
- 请问哪位高手知道“怎么把录制下来的声音存成流的形式”啊
- 创建DLL文件,调用后更改系统分辨率,settimer创建的计时器失效了。
- 江湖救急!!--问题大本营
- 请问socket5代理和用socket做代理有什么联系,我做了一个代理服务器软件,但是不能代理oicq!为什么?
- 怎样用语句动态生成一个ActiveForm
- 怎样控制网络视频点播的传输流量?
- 哪儿有Delphi5.0下载,我有急用
listbox1.items.clear;
listbox1.items.add('111');
listbox1.items.add('222');
listbox1.items.add('333');
listbox1.items.indexof('222')的结果就是2。
cmb1.itemindex:=cmb1.items.indexof('中国')
找出中国是下拉框第几个