ListBox修改赋值

最新推荐文章于 2022-11-13 22:57:44 发布

genispan

最新推荐文章于 2022-11-13 22:57:44 发布

阅读量4k

点赞数

文章标签： pascal delphi integer

本文链接：https://blog.csdn.net/genispan/article/details/3357898

版权

有办法解决的，用自绘方式，可以触发 OnDrawItem，然后就可以取出当前选择的Item值
1、设置ListBox.Sytle=lbOwnerDrawFixed
2、在 OnDrawItem 事件中编写自绘代码即可

Delphi(Pascal) code

   
   
    
    
    
    procedure
    
     TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);

    
    begin
    
    
  (Control as TListBox).Canvas.FillRect(Rect);
  (Control as TListBox).Canvas.TextOut(Rect.Left, Rect.Top, (Control as TListBox).Items[Index]);
  Edit1.Text :
    
    =
    
     ListBox1.Items[Index];

    
    end
    
    ;


    
    procedure
    
     TForm1.FormCreate(Sender: TObject);

    
    begin
    
    
  self.ListBox1.Style :
    
    =
    
     lbOwnerDrawFixed;

    
    end
    
    ;