Tôi đã có một cuộc chơi xung quanh với điều khiển TListBox, và vẽ hình ảnh và thay đổi kiểu phông chữ, vv Tôi muốn đẩy nó lên một chút, và thử thao tác các mục một số chi tiết với thụt lề và đa cấp th
Các mã sau độc đáo làm sinh động thêm một chuỗi mới vào cuối của một ListBox procedure TForm6.AddItem(s: string);
var
l : TListBoxItem;
OldHeight : Single;
begin
l := TListBoxItem.Cre