我需要在Item.Caption和SubItems上添加600多個(或更多)字符,但是我發現如果TListView的長度超過N個字符,則會完全切割文本。 我嘗試這樣做: procedure TForm1.FormCreate(Sender: TObject);
var
i1: Integer;
s: String;
begin
for i1 := 0 to 690 do
s :
我需要一些例子如何改變FireMonkey中我的list view每行的顏色文本項目。 我嘗試類似的東西,但沒有成功。 for i := 0 to lvArtikli.ItemCount-1 do
begin
AItem := lvArtikli.Items.AppearanceItem[i];
pk := AItem.Data['txtPK'].AsS