常规参数
文章标题:
权重:
文章摘要:
TListBox如何实现鼠标拖动,使其Items[]的内容变换位置?请看下面的例子:procedure TForm1.ListBox1DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);begin if Y = TListBox(Sender).ItemHeight div 4 then TListBox(Sender
关键字:
鼠标 实现 如何 Sender TListBox then if end TObject
管理密码: