16,748
社区成员
发帖
与我相关
我的任务
分享
procedure TSetComForm.Button6Click(Sender: TObject);
var
sindex:integer;
sstring:string;
begin
if listbox2.itemindex<> 0 then
begin
sstring:=listbox2.Items[listbox2.itemindex];
sindex:=listbox2.itemindex-1;
Listbox2.DeleteSelected;
listbox2.Items.Insert(sindex,sstring);
listbox2.ItemIndex:=sindex;
end;
end;
procedure TSetComForm.Button7Click(Sender: TObject);
var
sindex:integer;
sstring:string;
begin
if listbox2.itemindex <> listbox2.Items.Count-1 then
begin
sstring:=listbox2.Items[listbox2.itemindex];
sindex:=listbox2.itemindex+1;
Listbox2.DeleteSelected;
listbox2.Items.Insert(sindex,sstring);
listbox2.ItemIndex:=sindex;
end;
end;