要求:
一个PageControl分成2页,每个PageControl页中分别放一个Listview,将其中的一个ListView中选中的item拖曳操作,可在另一个PageControl页中ListView中生成同样的一个item.
一个PageControl分成2页,每个PageControl页中分别放一个Listview,将其中的一个ListView中选中的item拖曳操作,可在另一个PageControl页中ListView中生成同样的一个item.
解决方案 »
- delphi真强,熊猫烧香居然是delphi写的!
- 現在的女孩真狠。
- 谁帮我编译以下这段代码,做成个exe文件。拜托了。
- 使用Allocmem分配内存,用Freemem释放,但程序占用的内存一直增加,怎么回事?哪位给解释一下?
- 如何用ado编写一把文件(例如word之类的文件)存到oracle数据库中!
- 用Canvas做报表PreView, 字体的大小如何进行控制,请大佬,帮忙我在线等待
- ?请问哪里有萨师煊的数据库原理及《SQL SERVER 2000开发指南》的电子书下载???(hcy8004)
- 调试Thread出现的问题
- 简单的问题,请帮忙!!!!!!!!!!!!!!
- 菜鸟SOS
- 窗体获取焦点奇怪问题,急!!!!!!!
- TWebBrowser 模拟登陆
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls;type
TForm1 = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
ListView1: TListView;
ListView2: TListView;
procedure PageControl1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
procedure ListView1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
procedure ListView1DragDrop(Sender, Source: TObject; X, Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.PageControl1DragOver(Sender, Source: TObject; X,
Y: Integer; State: TDragState; var Accept: Boolean);
var
rect:TRect;
begin
Accept := True;
rect := PageControl1.TabRect(0);
if (x>rect.Left) and (x<rect.Right) and (y>rect.Top) and (y<rect.Bottom) then
PageControl1.ActivePageIndex := 0;
end;procedure TForm1.ListView1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
Accept := True;
end;procedure TForm1.ListView1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
with ListView1.Items.Add do
begin
Caption := ListView2.Selected.Caption;
end;
end;end.