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)
浙公网安备 33010602011771号