我想在ListBox里实现下面的功能,但却不知道怎么实现
点住listbox里的某一个item,把他拖到相应的位置,就和dbgrid中的ColumnEditor一样,可以通过
拖动的方式来确定字段的顺序.我找了listbox的属性,好像不能实现.也不太清楚代码应该怎么写!希望高手能给予指点!
非常谢谢!
点住listbox里的某一个item,把他拖到相应的位置,就和dbgrid中的ColumnEditor一样,可以通过
拖动的方式来确定字段的顺序.我找了listbox的属性,好像不能实现.也不太清楚代码应该怎么写!希望高手能给予指点!
非常谢谢!
解决方案 »
- 鼠标放在image控件上,鼠标旁显示个大图象,如何实现。
- 加了Timer去改变Edit1.text的内容,但没用?
- 各位大虾请教下面一个问题,希望有能力者帮小弟尽快解决,有劳各位了
- 怎么样不通过webbrowser的DocumentComplete事件而知道页面打开已经完成?
- 寻delphi7的注册码
- 请问有没有人知道两个程序间通过消息传递字符串参数如何实现
- 关于canvas的问题
- (紧急求救)请问在Delphi中如何使用扫描枪取得条形码?
- 请问QuickRep中的printer的用法是什么?(想动态建立)
- 请问各位。如何让报表竖着打印
- 请问,使用Tidhttp下载文件,不能下载后缀名为exe的文件,应该设置那个属性?
- 怎样编译.exe成别的文件名
var
n:Integer;
begin
if Sender=Source then
with (Sender as TListBox) do
begin
n := ItemAtPos(Point(X,Y),true);
if n>=0 then
Items.Exchange(ItemIndex,n);
end;
end;procedure TForm1.ListBox1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
Accept := true;
end;