ListViewButtonClick在德爾福

Question

在德爾福，當我點擊一個按鈕TListView，沒有任何反應。

procedure TForm2.ListView1ButtonClick(const Sender: TObject; 
    const AItem: TListItem; const AObject: TListItemSimpleControl); 
begin 
    ShowMessage(AItem.ToString + ' is clicked.'); 
end; 

此外，OnItemClick事件不工作，要麼。

procedure TForm2.ListView1ItemClick(const Sender: TObject; 
    const AItem: TListViewItem); 
begin 
    ShowMessage(AItem.Text + ' ' +AItem.ButtonText + ' is clicked.'); 
end; 

Answer 1

像預期的那樣（使用XE7）如下的設置事件觸發：

1. 文件 - 新建 - 多設備應用
2. 的TListView
3. TMemo
4. 在結構查看選擇ListView1.ItemAppearance
5. 在對象插件pector，屬性選項卡財產ItemAppearance
6. 選擇ImageListItemRightButton在結構視圖中選擇ListView1的
7. 在對象查看，事件選項卡在右列雙擊創建事件OnButtonClick和OnItemClick

添加代碼以填充ListView

procedure TForm3.FormCreate(Sender: TObject); 
var 
    LItem: TListViewItem; 
    i: integer; 
begin 
    for i := 0 to 9 do 
    begin 
    LItem := ListView1.Items.Add; 
    LItem.Text := IntToStr(i); 
    end; 
end; 

將代碼添加到事件處理程序

procedure TForm3.ListView1ButtonClick(const Sender: TObject; 
    const AItem: TListViewItem; const AObject: TListItemSimpleControl); 
begin 
    Memo1.Lines.Add('ListView1ButtonClick: '+IntToStr(AItem.Index)); 
end; 

procedure TForm3.ListView1ItemClick(const Sender: TObject; 
    const AItem: TListViewItem); 
begin 
    Memo1.Lines.Add('ListView1ItemClick: '+IntToStr(AItem.Index)) 
end; 

運行該項目，並查看結果：