如 checkboxlist1 里由上到下有以下各项:
上海
广东
山东我想把 广东这项拖到最上面,后变成这样:广东
上海
山东
如何实现? 多谢先。
上海
广东
山东我想把 广东这项拖到最上面,后变成这样:广东
上海
山东
如何实现? 多谢先。
解决方案 »
- 请问如何判断dbgrideh换了行???
- 子窗体释放后程序主窗口不能获得焦点,程序暂停,怎么解决?
- 有关打印走纸的问题
- 菜鸟问题:请问高手如何在form创建时自动连接数据库显示treeview的内容?
- 一般出现"无法定位程序输入点于****动态链接库中"的错误是怎么产生的,怎么解决?
- 一个很奇怪的问题,在Delphi里编译可运行的程序不能直接用EXE运行
- 兄弟姐妹们,谁有汉字拼音对照表啊?急需!
- 运行出错,请指教。
- 哪位知道原子的API?做什么的?
- timageenvect 中画曲线不能结束的问题。
- >>>>>>>>>>>>>>>需要人才 需要.net delphi java 程序员请把联系方式留下
- 求picshow控件的下载地址、安装及使用方法!
FIndex: Integer;procedure TForm5.CheckListBox1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
FPT: TPoint;
begin
FPT := Point(X, Y);
FIndex := CheckListBox1.ItemAtPos(FPT, True);
end;procedure TForm5.CheckListBox1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
FPT: TPoint;
FCurr: Integer;
begin
FPT := Point(X, Y);
FCurr := CheckListBox1.ItemAtPos(FPT, False);
if (FCurr <> FIndex) and (FCurr <> -1) and (FIndex <> -1) then
begin
if FCurr >= CheckListBox1.Items.Count then
FCurr := CheckListBox1.Items.Count - 1;
CheckListBox1.Items.Move(FIndex, FCurr);
end;
end;
var
ok:boolean;
procedure TForm5.CheckListBox1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ok:=true;
end;
procedure TForm5.CheckListBox1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
FPT: TPoint;
FCurr: Integer;
index:integer;
begin
if ok then
index:=Checklistbox1.itemindex;
if index<>-1 then
begin
FPT := Point(X, Y);
FCurr := CheckListBox1.ItemAtPos(FPT, true);
if FCurr<>index then
begin
checklistbox1.items.move(index,FCurr);
checklistbox1.itemindex:=FCurr;
end;
end;
end;
end;
ok:boolean;
procedure TForm5.CheckListBox1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ok:=true;
end;
procedure TForm5.CheckListBox1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
FPT: TPoint;
FCurr: Integer;
index:integer;
begin
if ok then
begin//修改一下,少了个begin
index:=Checklistbox1.itemindex;
if index<>-1 then
begin
FPT := Point(X, Y);
FCurr := CheckListBox1.ItemAtPos(FPT, true);
if FCurr<>index then
begin
checklistbox1.items.move(index,FCurr);
checklistbox1.itemindex:=FCurr;
end;
end;
end;
end;