tlistbox

2热度

1回答

我在学习FireMonkey风格 - 我的主要参考文献是here。我用简单的标签和形状尝试过的所有东西都运行良好，但我现在正在使用TListBox并试图做两件事：设置TListBox中项目的字体。删除其边框（它的客户端在TCalloutPanel中对齐）。我正在使用在窗体上创建样式表的方法，右键单击控件并选择“编辑自定义样式”。（尽管做了运行时更改，我也同样高兴）。我对字体的唯一成功就是

0热度

1回答

的Delphi XE 7的TListBox主要形式松散焦点draganddrop

后，我发现在Delphi XE7一个错误，拖动后拖放TlistBoxitem，形成覆盖所有组分效果松动。我必须点击的形式获得了mouseenter效果。我看到（在调试模式下）TlistBox通过调用os和dragAndDrop服务的操作系统启动draganddrop。从FMX.ListBox单元 if AllowDrag then begin Screenshot :=

-2热度

1回答

获取Lazarus中TStrings列表的长度

我有一个名为ListBoxPlayers的TListBox，我相信ListBoxPlayers.Items引用了TListBox中的TStrings列表。我正在尝试使用this函数，但它似乎不起作用。有任何想法吗？编辑：所以我试图设置TListBox的大小取决于它将显示多少个字符串。这里是我的代码： procedure TForm3.edtSearchChange(Sender: TObjec

5热度

1回答

Delphi按ItemData.Detail排序TListBox？

我有一个TListBox包含位置列表（每个位置都有一个名称和距离当前位置的距离）。我想让用户可以根据位置名称（即按字母顺序）或与当前位置的距离对列表进行排序。位置名称存储为项目的ItemData.Text值，并且距当前位置的距离作为ItemData.Detail值存储。问题是常规的TListBox排序方法在排序时不使用ItemData.Detail属性（只是ItemData.Text属性）。是否可

0热度

1回答

Easy Delphi XE6 FireMonkey控件TListBox和TStringGrid

如何获取列到FireMonkey TListBox中，然后从TListBox的行列中获取值。我正在使用这种方法： vListRow：='Col1Stuff'+'^ I'+'Col2Stuff'; 这不是给我第一列的Col1Stuff和第二列的Col2Stuff。我试图TStringGrid Firemonkey控制作为替代，但下面的方法是不工作或者： vStringGrid.Cells [0,1

1热度

1回答

TRadioButton在TListBoxItem上滚动时行为不正常

我试图实现具有多个TListBoxItems的Firemonkey TListbox。在其中一个TListBoxItems上，我通过在设计时将它们放在TListBoxItem上放置了一些TRadioButton。当应用程序运行时，当TListBoxItem从屏幕上滚动并重新打开时，按钮的可视外观不稳定。 StackOverflow中的另一个TListBox问题使得TListBox不托管除TList

0热度

1回答

使XE5中的FireMonkey TListBox透明

我在XE2中做了一些FireMonkey的东西，在这种情况下，我遇到了TListBox的问题。我基本上只需要TListBox提供的“子项目”功能的分组，这很简单，放下一个TListBox，点击'编辑自定义样式'，就可以创建这个定制的TListBox，选择背景矩形，编辑填充和笔画，你就是金色现在我们正在转向XE5，并且我无法重现相同的行为。使用样式书籍编辑器，我可以看到背景（现在是TStyleOb

3热度

1回答

TListbox - OnChangeEvent在多选下无法启动可靠

我正在使用XE7和FMX。我的问题是，TListbox的OnChange-Event无法正确使用多选（当每次发生更改时都不会触发）。重现步骤：创建FMX-应用程序和一个TListBox添加到他的状态。添加项目到此列表框。将Listbox的'MultiSelectStyle'设置为'default'。处理OnChangeEvent（设置断点或执行某些操作...）。现在运行该项目并单击第

3热度

1回答

如何垂直居中TListBox项目？

所以我想垂直居中TListBox（不是TListView）项目。我可以使用TopIndex属性，但我该怎么做整件事。如果项目较少，所以滚动条不出现，那么不需要居中，只有默认项目的选择才会正常。事情是这样的：

0热度

1回答

使用编辑框过滤列表框

我想在Delphi中使用编辑框过滤列表框，但它不工作。这是我的基于编辑框的OnChange事件的代码。 procedure TReportDlgForm.FilterEditOnChange(Sender: TObject); var I: Integer; begin ListBox1.Items.BeginUpdate; try for I := 0