FireMonkey中ListView需求：运行时改项图片、独立操作复选框与文本

Hey there, let's break down how to solve these two FireMonkey ListView tasks—they're totally achievable, even though ListView doesn't have ListBox's built-in shortcuts for this kind of interaction.

First off, make sure your ListView is using either DynamicAppearance or CustomAppearance (StaticAppearance won't let you modify individual item controls at runtime). Here's how to swap out an item's image:

1. In the ListView's Appearance designer, name your Image control something recognizable (like ItemImage—this is crucial for finding it later).
2. Use this code to target the specific item and update its image:

procedure TForm1.UpdateListViewItemImage(const AItemIndex: Integer; const AImagePath: string);
var
  LItem: TListViewItem;
  LImageControl: TImageControl;
begin
  // Get the target item (remember, indexes start at 0)
  LItem := ListView1.Items[AItemIndex];
  if not Assigned(LItem) then Exit;

  // Locate the Image control in the item's appearance
  LImageControl := LItem.Objects.FindObjectT<TImageControl>('ItemImage');
  if Assigned(LImageControl) then
  begin
    // Load your new image—this can be a file, resource, or from an ImageList
    LImageControl.Bitmap.LoadFromFile(AImagePath);
    // Alternative: Use an ImageList
    // LImageControl.Bitmap := ImageList1.Bitmap[YourImageIndex];
  end;
end;

Pro tip: If you're dynamically creating ListView items, make sure to assign the Image control's name when you build the item's appearance so you can reference it later.

Your instinct to use the ListView1ItemClickEx event is spot-on—it's the key to distinguishing clicks on different parts of the ListView item. Here's how to set it up:

1. In the ListView's Appearance designer, add a TCheckBox (name it ItemCheckBox) and a TText control (name it ItemText) for your item layout.
2. Make sure both controls have their HitTest property set to True (this lets them capture click events).
3. Add this code to the ItemClickEx event handler:

procedure TForm1.ListView1ItemClickEx(const Sender: TObject; ItemIndex: Integer;
  const LocalClickPos: TPointF; const ItemObject: TListItemDrawable);
var
  LCheckBox: TCheckBox;
begin
  // Check if the click was on the checkbox
  if ItemObject is TCheckBox then
  begin
    LCheckBox := TCheckBox(ItemObject);
    // Toggle the checked state
    LCheckBox.IsChecked := not LCheckBox.IsChecked;
    
    // Run your custom logic for check/uncheck
    if LCheckBox.IsChecked then
      DoSomethingWhenChecked(ItemIndex)
    else
      DoSomethingWhenUnchecked(ItemIndex);
      
    // Exit early so we don't trigger the text click logic
    Exit;
  end;

  // Check if the click was on the text area
  if ItemObject is TText then
  begin
    // Run your custom logic for text clicks
    DoSomethingWhenTextClicked(ItemIndex);
    Exit;
  end;

  // Optional: Handle clicks on other parts of the item here
end;

// Example helper procedures (replace with your actual logic)
procedure TForm1.DoSomethingWhenChecked(const AItemIndex: Integer);
begin
  ShowMessage(Format('Item %d was checked!', [AItemIndex]));
end;

procedure TForm1.DoSomethingWhenUnchecked(const AItemIndex: Integer);
begin
  ShowMessage(Format('Item %d was unchecked!', [AItemIndex]));
end;

procedure TForm1.DoSomethingWhenTextClicked(const AItemIndex: Integer);
begin
  ShowMessage(Format('You clicked the text of Item %d!', [AItemIndex]));
end;

The ItemObject parameter tells you exactly which part of the item was clicked—so you can easily branch your logic based on whether it's the checkbox or text.

内容的提问来源于stack exchange，提问作者relayman357