大家来讨论一下关于拖放的问题！！(29分)

lon911 · 2002-04-26

我想和大家讨论一下关于拖放问题，类似于蚂蚁一样，但要比它复杂。 我写了一个拖放窗口下面是原代码 private     { Private declarations }     //创建拖放窗口     procedure Createparams(Var Params:TCreateParams);override;    //拖放窗口的移动     procedure WMNCHitTest( var Msg : TWMNCHitTest );message wm_NCHitTest; ……………… //在窗口上按下鼠标移动窗口 procedure TfrmDarg.WMNCHitTest( var Msg : TWMNCHitTest ); begin   if  GetAsyncKeyState(VK_LButton) < 0 then      Msg.Result := HTCaption   else      Msg.Result := HTCLient; end; //创建窗口 procedure TfrmDarg.Createparams(var Params:TCreateParams); begin   Inherited CreateParams(Params);   With Params do   begin     //Width:=40;     //Height:=40;     Style :=WS_CAPTION;     Style :=WS_POPUP;     EXStyle:=ExStyle or WS_EX_TOPMOST;// OR WS_EX_ACCEPTFILES or WS_DLGFRAME or WM_NCHITTEST;     WndParent:=GetDeskTopWindow();   end; end; 这是窗口代码，现在让我们来讨论一下拖放的问题吧！

pcexplorer · 2002-04-26

unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, ShellApi, StdCtrls; type   TForm1 = class(TForm)     Memo1: TMemo;     procedure CreateParams(var Params:TCreateParams);override;   private     { Private declarations }     procedure WMDropFiles(var Msg:TWMDropFiles);message WM_DROPFILES;   public     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.dfm} { TForm1 } procedure TForm1.CreateParams(var Params: TCreateParams); begin   inherited CreateParams(Params);   Params.ExStyle:=Params.ExStyle or WS_EX_ACCEPTFILES; end; procedure TForm1.WMDropFiles(var Msg: TWMDropFiles); var   FCount:integer;   i:integer;   P

char; begin   GetMem(P,MAX_PATH);   try     FCount:=DragQueryFile(Msg.Drop,DWORD(-1),nil,0);     for i:=0 to FCount-1 do     begin       DragQueryFile(Msg.Drop,i,P,MAX_PATH);       Memo1.Lines.Add(StrPas(P));     end;     DragFinish(Msg.Drop);   finally     FreeMem(P);   end;   inherited; end; end.

pcexplorer · 2002-04-26

我在Delphi6下实现的，测试过了

lon911 · 2002-04-26

谢谢楼上的，有没有更好的办法

pcexplorer · 2002-04-26

这是最简单的，还可以用Shell做，当然要复杂多啦 因为涉及到Com

lon911 · 2002-04-26

楼上的你只是把读取文件路径我要的是内容，当然是文本或网页的 另外要可以把选中的文本内容也拖进来

real_clq · 2002-04-27

用com的，有相关控件源码参考。

lon911 · 2002-04-29

怎么没人了吗

pcexplorer · 2002-04-29

我也想学习

lon911 · 2002-04-30

怎么没人了

real_clq · 2002-04-30

去下载“DragDrop”控件看看吧，好象“海阔天空”有。

火龙真人 · 2002-05-07

懒得再写了把原来写的茶房系统,创建茶桌对象和拖放都贴出来 //--------------------------------------------------------------------------- #include <vcl.h> #pragma hdrstop #include "table.h" #include "dm.h" #include "sy.h" #include "main.h" #include "khxz.h" #include "myinput.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" Tfmtable *fmtable; //--------------------------------------------------------------------------- __fastcall Tfmtable::Tfmtable(TComponent* Owner)     : TForm(Owner) { } //--------------------------------------------------------------------------- void Tfmtable::createimg(int i,int x,int y,int letzwh,Currency lsj,Currency hyj,AnsiString l1cap,AnsiString l2cap) {     m1.i1=new TImage(Application);     m1.i1->Parent=this->ScrollBox1;     m1.i1->Picture->LoadFromFile("F://茶房前台//res//amplifier.ico");     m1.i1->AutoSize=true;     m1.i1->Name="im"+IntToStr(i);     m1.i1->Top=y;     m1.i1->Left=x;     m1.i1->Transparent=true;     m1.i1->PopupMenu=this->PopupMenu1;     m1.i1->DragMode=dmAutomatic;     m1.l1=new TLabel(Application);     m1.l1->Parent=this->ScrollBox1;     m1.l1->Top=m1.i1->Top+m1.i1->Height+2;     m1.l1->Left=m1.i1->Left;     m1.l1->Caption=l1cap;//dm1->qr_tea_zwjbxxzwmc->Value;     m1.l1->Transparent=true;     m1.setxpos(120);     m1.myzwh=letzwh;     m1.zwlsj=lsj;     m1.zwhyj=hyj;     m1.l2=new TLabel(Application);     m1.l2->Parent=this->ScrollBox1;     m1.l2->Top=m1.i1->Top+m1.i1->Height+16;     m1.l2->Left=m1.i1->Left;     m1.l2->Caption=l2cap;     m1.l2->Transparent=true;     if (m1.l2->Caption=="无人      ") m1.l2->Font->Color=clBlue;        else m1.l2->Font->Color=clRed;        m1.setxpos(120); } void __fastcall Tfmtable::FormShow(TObject *Sender) {         dm1->qr_tea_zwjbxx->Close();     dm1->qr_tea_zwjbxx->Open();     zwcount=dm1->qr_tea_zwjbxx->RecordCount;     dm1->qr_tea_zwjbxx->First();     for(int i=0;i<zwcount;i++)     {     if (i>=1)dm1->qr_tea_zwjbxx->Next();     createimg(i,dm1->qr_tea_zwjbxxzwx->Value,dm1->qr_tea_zwjbxxzwy->Value,dm1->qr_tea_zwjbxxzwh->Value,dm1->qr_tea_zwjbxxzwlsj->Value,dm1->qr_tea_zwjbxxzwhyj->Value,dm1->qr_tea_zwjbxxzwmc->Value,dm1->qr_tea_zwjbxxkhh->Value);     } } //--------------------------------------------------------------------------- void mypic::dragl1() {     l1->Top=i1->Top+i1->Height;     l1->Left=i1->Left;     l2->Top=i1->Top+i1->Height+16;     l2->Left=i1->Left; } void mypic::setxpos(int a) {     xpos=a; } //--------------------------------------------------------------------------- int mypic::getxpos() {     return xpos; } void __fastcall Tfmtable::Image1DragOver(TObject *Sender, TObject *Source,       int X, int Y, TDragState State, bool &Accept) {     Accept=true; } //--------------------------------------------------------------------------- void __fastcall Tfmtable::Image1DragDrop(TObject *Sender, TObject *Source,       int X, int Y) {     TImage* source=(TImage*) Source;     AnsiString s1;     s1=Trim(source->Name);     s1=s1.SubString(3,s1.Length()-2);     int j;     j=s1.ToInt();     m1[j].i1->Left=X - this->ScrollBox1->HorzScrollBar->Position;     m1[j].i1->Top=Y - this->ScrollBox1->VertScrollBar->Position;     m1[j].dragl1();     dm1->q_ty->Close();     dm1->q_ty->SQL->Clear();     dm1->q_ty->SQL->Add ("update tea_zwjbxx");     dm1->q_ty->SQL->Add ("set zwx="+IntToStr(m1[j].i1->Left));     dm1->q_ty->SQL->Add (", zwy="+IntToStr(m1[j].i1->Top));     dm1->q_ty->SQL->Add ("where zwh="+IntToStr(m1[j].myzwh));     dm1->q_ty->ExecSQL(); } //--------------------------------------------------------------------------- void __fastcall Tfmtable::FormClose(TObject *Sender, TCloseAction &Action) {         Action=caFree; } //--------------------------------------------------------------------------- void __fastcall Tfmtable:1Click(TObject *Sender) {     if (!fmmain->openform("fmsy"))        {        Tfmsy *t1;        t1=new Tfmsy(Application);        t1->ShowModal();        } } //--------------------------------------------------------------------------- void __fastcall Tfmtable:2Click(TObject *Sender) {     if (!fmmain->openform("fmxzkr"))        {        Tfmxzkr *t1;        t1=new Tfmxzkr(Application);        t1->ShowModal();        } } //--------------------------------------------------------------------------- void __fastcall Tfmtable:opupMenu1Popup(TObject *Sender) {   p1->Enabled=true;   p2->Enabled=true;   AnsiString temzwh1;   temzwh1=PopupMenu1->PopupComponent->Name;   temzwh1=temzwh1.SubString(3,temzwh1.Length()-2);   m1i=StrToInt(temzwh1);   temzwh=m1[m1i].myzwh;   temkhh=m1[m1i].l2->Caption;   temkhh=m1[m1i].l2->Caption;   temzwmc=m1[m1i].l1->Caption;   temkhh=m1[m1i].l2->Caption;   if (temkhh=="无人      ")      p1->Enabled=false;   else      p2->Enabled=false; } //--------------------------------------------------------------------------- void __fastcall Tfmtable::ToolButton1Click(TObject *Sender) {     newzwmc="";     if (!fmmain->openform("fminput"))        {        Tfminput *t1;        t1=new Tfminput(Application);        t1->ShowModal();        } } //--------------------------------------------------------------------------- void __fastcall Tfmtable::ToolButton3Click(TObject *Sender) {     Close(); } //---------------------------------------------------------------------------

studing · 2002-05-10

高手，我晕了

lon911 · 2002-05-14

还有没有人

zhenghui · 2002-06-07

拖放窗体（注意这里的窗体是windows编程的概念，如edit,button也是)可以通过wm_syscommand消息进行处理

yth · 2002-12-24

你到底想拖放什么？ 不同的东西编程是不一样的。

大家来讨论一下关于拖放的问题！！(29分)

lon911

Unregistered / Unconfirmed

pcexplorer

Unregistered / Unconfirmed

pcexplorer

Unregistered / Unconfirmed

lon911

Unregistered / Unconfirmed

pcexplorer

Unregistered / Unconfirmed

lon911

Unregistered / Unconfirmed

real_clq

Unregistered / Unconfirmed

lon911

Unregistered / Unconfirmed

pcexplorer

Unregistered / Unconfirmed

lon911

Unregistered / Unconfirmed

real_clq

Unregistered / Unconfirmed

火龙真人

Unregistered / Unconfirmed

studing

Unregistered / Unconfirmed

lon911

Unregistered / Unconfirmed

zhenghui

Unregistered / Unconfirmed

yth

Unregistered / Unconfirmed

Similar threads