dragon

导航

2006年4月30日

delphi ListBox控件拖放Item位置

摘要： procedure TForm1.ListBox1DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); var Idx: Integer; Pos: TPoint;begin Accept := False; if Sender is TListBox then... 阅读全文

posted @ 2006-04-30 14:01 大脚怪 阅读(1160) 评论(0) 推荐(0)