请教,
    在ListView 或表格中如何 在某一格中加入Button
   谢谢

解决方案 »

  1.   

    你说的是顶部的一排按钮吧?把 ViewStyel := vsReport;
      

  2.   

    如果你想放置到更详细的坐标,自己运算一下吧:
    procedure TForm1.ListView1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
      var
      aRect:TRect;
      item:TListItem;
    begin
      item:=  ListView1.GetItemAt(x,y);
      if item<>nil then
      begin
        aRect := item.DisplayRect(drSelectBounds);
        Button1.Parent := ListView1;
        Button1.Left := aRect.Left ;
        Button1.Top := aRect.Top ;
      end;
    end;