listbox多选状态下的自拖与互拖

原创 2002年03月14日 09:51:00

unit Unit1;

file://yanlei:E_mail yanleiigis@21cn.com

interface

 

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls;

type
    TForm1 = class(TForm)
        ListBox1: TListBox;
        ListBox2: TListBox;
        procedure ListBox1DragDrop(Sender, Source: TObject; X, Y: Integer);
        procedure ListBox1DragOver(Sender, Source: TObject; X, Y: Integer;
            State: TDragState; var Accept: Boolean);
        procedure FormCreate(Sender: TObject);
    private
    { Private declarations }
    public
    { Public declarations }
    end;

var
    Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ListBox1DragOver(Sender, Source: TObject; X, Y: Integer;
    State: TDragState; var Accept: Boolean);
var
    aPoint: TPoint;
begin
    aPoint.x := x;
    aPoint.y := y;


    if (source is Tlistbox) then
        if ((source as Tlistbox).SelCount > 0) and
            ((sender as Tlistbox).ItemAtPos(apoint, true) <> -1)
            and ((sender as Tlistbox).itematpos(apoint, true) <> (sender as Tlistbox).itemindex) then
        begin
            accept := true;
        end;
end;

 

procedure TForm1.ListBox1DragDrop(Sender, Source: TObject; X, Y: Integer);
var
    aPoint: TPoint;
    st: string;
    p: integer;
    i, num: integer;
    MYlBox: TStrings;
begin
    aPoint.x := x;
    aPoint.y := y;

    p := (sender as Tlistbox).itematpos(aPoint, true);

    MYlBox := Tstringlist.Create;
    try
        Num := (source as Tlistbox).Items.Count;
        for i := num - 1 downto 0 do
        begin
            if (source as Tlistbox).Selected[i] then
            begin
                st := (source as Tlistbox).Items[i];
                MYlBox.Add(st)

            end;
        end;
        if p > -1 then
        begin
            for i := 0 to Mylbox.Count - 1 do
            begin

                (sender as Tlistbox).Items.Insert(p, mylbox[i])

            end;
        end
        else
        begin
            for i := Mylbox.Count - 1 downto 0 do
            begin
                (sender as Tlistbox).Items.Add(mylbox[i])

            end;

        end;
        (source as Tlistbox).DeleteSelected;
        if P > -1 then
            (sender as Tlistbox).Selected[p] := true;
    finally
        mylbox.Free;
    end;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
    listbox2.OnDragDrop := listbox1.OnDragDrop;
    listbox2.OnDragOver := listbox1.OnDragOver;
    listbox1.MultiSelect := true;
    listbox2.MultiSelect := true;
    listbox1.DragMode := dmAutomatic;
    listbox2.DragMode := dmAutomatic;

end;

end.

listbox多选状态下的自拖与互拖

  • zgqtxwd
  • zgqtxwd
  • 2008年05月01日 00:15
  • 124

把一个listbox中的item移动到另一个listbox里

主要作用是把一个listbox中的item移动到另一个listbox里,并改变listbox中item的数据库中的属性值(归属)。客户端放两个listbox,支持多选,两个listbox中间放两个bu...
  • pigHead_chen
  • pigHead_chen
  • 2010年09月27日 11:14
  • 1703

[基本实验] 拖库

一、支持外连接 利用工具Navicat Premium版本,支持在MySQL、Oracle、PostgreSQL、SQLite及SQL Server之间传输数据,是各种版本的集合。 1.连接->“My...
  • hitwangpeng
  • hitwangpeng
  • 2015年07月30日 13:46
  • 2247

SQLMAP注入拖库过程

SQLMAP注入拖库过程 http://secbeta.com/2012/sqlmap-attack-db/
  • kaka_2014
  • kaka_2014
  • 2013年05月17日 17:00
  • 519

SQLMAP注入拖库过程

SQLMAP注入拖库过程                                                                                     ...
  • mydriverc2
  • mydriverc2
  • 2014年11月22日 17:12
  • 1152

Android 动画有拖影

今天在做一个项目时,使用到了android的RotateAnimation,遇到了一个比较奇怪的问题,在做动画的时候会有拖影,看起来十分难看。 一开始以为是系统的原因,可能是资源不足造成的,在这个方...
  • g475266696
  • g475266696
  • 2012年05月18日 17:06
  • 1625

拖焊的步骤

首先把IC平放在焊盘上,对准。观察引脚是否有歪斜。 对准后用手压住 然后使用融化的焊丝随意焊接IC的 数个引脚 来固定IC。 对齐不易,可以先对齐一边,焊上一两个脚,推动芯片...
  • Eleanor_12
  • Eleanor_12
  • 2016年10月01日 23:39
  • 1081

html5中立体贴图有拖影问题的解决

var SEPARATION = 100; var AMOUNTX = 50; var AMOUNTY = 50; var container, stats; var con...
  • xiaocaiju
  • xiaocaiju
  • 2012年07月20日 18:11
  • 2109

ListBox的多选

(1)     如果希望一个ListBox是多选的,除了通过控件属性手动设置外,也可以直接设置ListBox实例的SelectionMode属性。一般的,将这个属性值设置为MultiExtended...
  • programrookie
  • programrookie
  • 2011年12月15日 16:04
  • 9467

【iOS】UI基础Day1-笔记(拖线、UIView方法、属性等)

#DAY 1IBAction和IBOutlet IBAction:只有返回值声明为IBAction的方法,才能跟storyboard中的控件进行连线 @property (weak, nonatomi...
  • bacteriumX
  • bacteriumX
  • 2017年04月09日 18:45
  • 264
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:listbox多选状态下的自拖与互拖
举报原因:
原因补充:

(最多只允许输入30个字)