procedure Register; begin RegisterComponents('Sunisoft', [TDropFileListBox]); //注冊(cè)組件到組件板上 end;
constructor TDropFileListBox.Create(AOwner: TComponent); begin inherited Create(AOwner); FEnabled:=true; //類(lèi)被構(gòu)造時(shí)，使DropEnabeld的默認(rèn)值為T(mén)rue end;
destructor TDropFileListBox.Destroy; begin inherited Destroy; end;
//改變屬性DropEnabled的調(diào)用過(guò)程 procedure TDropFileListBox.FDropEnabled(Enabled:Boolean); begin FEnabled:=Enabled; DragAcceptFiles(Self.Handle,Enabled);//設(shè)置組件窗口是否接受文件拖放 end;
//接受WM_DropFiles消息的過(guò)程 procedure TDropFileListBox.DropFiles(var Mes:TMessage); var FN:TStringList; FileName:array [1..256] of char; sFN:String; i,Count,p:integer; begin FN:=TStringList.Create; Count:=DragQueryFile(Mes.WParam,$FFFFFFFF,@FileName,256);//得到拖放文件的個(gè)數(shù) For i:=0 to Count-1 do begin DragQueryFile(mes.WParam,i,@FileName,256);//查詢(xún)文件名稱(chēng) sFN:=FileName; p:=pos(chr(0),sFN);//去掉文件名末尾的ASCII碼為0的字符 sFN:=copy(sFN,1,p-1); FN.Add(sFN); end; DragFinish(mes.WParam); //釋放所使用的資源 if Assigned(FDropFile) then FDropFile(self, FN); //調(diào)用事件，并返回文件名列表參數(shù) FN.Free; end;
