我,(更多时间),当我点击树视图的项目时尝试执行操作,请参阅:
procedure TForm1.TreeView1Click(Sender: TObject);
begin
if treeview1.Selected.AbsoluteIndex=1 then
begin
showmessage('selecionado');
end;
end;
如果用户单击树视图的索引1,此代码将显示一条消息,问题如下:如果用户选择索引1,将显示该消息,但在此之后,用户单击列表视图的空白区域消息仍然执行,因为该项仍然被选中.如何仅在用户单击相应项目时才能运行事件？
如何验证是否存在进程名称(部分名称,例如notepad.exe的notep*)并创建一个循环以在运行时终止此进程？批处理很简单:
:a
taskkill -f -im notep*
goto a
有帮助吗？
我在目录中有几个xml文件,但我只能逐个文件发送.我想发送该目录中的所有文件.我怎样才能做到这一点？
idftp1.Put('C:\MyDir\*.xml','/xml/*.xml');
如何使用未过滤和多选择的opendialog加载到listview只有.mp3文件？我正在使用这种方法:
procedure TForm1.PlayClick(Sender: TObject);
var i:integer;
begin
if opendialog1.execute then
begin
if ExtractFileExt(opendialog1.FileName[i]) ='.mp3' then
begin
for I := 0 to opendialog1.files.Count - 1 do
begin
listview1.Items.Add.Caption:=extractfilename(opendialog1.Files[i]);
end;
end;
end else
begin
showmessage(opendialog1.Files[i]);
end;
end;
但是我需要一个像这样工作的程序:
如果用户打开具有各种扩展名的文件夹,则opendialog仅添加到扩展名为.mp3的ListView文件.我需要一个不使用过滤器的过程.谢谢!