德爾福列表視圖移動項目了按鈕

/向下

可能重複：
Delphi: Shift-Up and Shift-Down in the Listview 德爾福列表視圖移動項目了按鈕

嗨我有一個列表視圖，我希望能夠以移動選定的項目/項目使用按鈕上下列表，但無法弄清楚如何做到這一點，有人可以給我一個例子

非常感謝

科林

來源

2011-06-02 colin

我強烈建議在虛擬模式下使用列表視圖 – 2011-06-02 11:48:04

@Andreas，然而，模擬問題不適用於多選項。 – colin 2011-06-02 12:04:18

procedure Tfrprodetile.ExchangeItems(lv: TListView; const i, j: Integer); 
var 
    tempLI: TListItem; 
begin 
    lv.Items.BeginUpdate; 
    try 
    tempLI := TListItem.Create(lv.Items); 
    tempLI.Assign(lv.Items.Item[i]); 
    lv.Items.Item[i].Assign(lv.Items.Item[j]); 
    lv.Items.Item[j].Assign(tempLI); 
    tempLI.Free; 
    finally 
    lv.Items.EndUpdate 
    end; 
end;

和使用說明：

下移：

ExchangeItems(lst_detile,lst_detile.Selected.Index,lst_detile.Selected.Index+1);

拉昇：

ExchangeItems(lst_detile,lst_detile.Selected.Index,lst_detile.Selected.Index-1);

注意，「lst_detile」是我的ListView

的名字

美好的一天！

來源

2011-06-02 15:10:35 mohsen

+1 - 非常好用......謝謝。 – 2011-08-11 14:38:51

德爾福列表視圖移動項目了按鈕

回答

相關問題