delphi 中的FileListBox控件如何实现下一个文件,上一个文件的操作?
展开全部
楼主是问选择文件的那个光标的移动么?
向下移动:
procedure TForm1.Button1Click(Sender: TObject);
begin
FileListBox1.ItemIndex:=FileListBox1.ItemIndex+1;
end;
下上移动:
procedure TForm1.Button1Click(Sender: TObject);
begin
FileListBox1.ItemIndex:=FileListBox1.ItemIndex-1;
end;
向下移动:
procedure TForm1.Button1Click(Sender: TObject);
begin
FileListBox1.ItemIndex:=FileListBox1.ItemIndex+1;
end;
下上移动:
procedure TForm1.Button1Click(Sender: TObject);
begin
FileListBox1.ItemIndex:=FileListBox1.ItemIndex-1;
end;
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询