L
lfpsoft
Unregistered / Unconfirmed
GUEST, unregistred user!
问题解决就给分
先看以下代码：
procedure WMDropFiles(var Msg: Tmessage); message wm_DropFiles;
//.....
procedure TfrmEdit.FormCreate(Sender: TObject);
begin
//...
DragAcceptFiles(Handle, True);
end;
procedure TfrmEdit.WMDropFiles(var Msg: Tmessage);
var FileName : array [0..255] of Char;
a: Integer;
begin
a:=0;
repeat
FileName := '';
DragQueryFile(THandle(Msg.WParam), a, FileName, Sizeof(FileName));
if (LowerCase(ExtractFileExt(FileName)) = '.html') then
//这里对文件进行处理
inc(a);
until trim(FileName) = '';
DragFinish(THandle(Msg.WParam));
end;
procedure TfrmEdit.FormDestroy(Sender: TObject);
begin
DragAcceptFiles(Handle, False);
end;
以上的代码我已实现在自己的程序里对拖放文件处理，但是还有一点小问题
我没有满意。就是无论拖来的是什么类型的文件，我的程序都只会显示有个
“+”号的图标。我想拖进的不是HTML文件，则就显示那个不能拖放的图标，
就是一个圆圈，中间有一横的那个图标。如果是HTML文件，则可以进行拖放
。我试过在Form的OnDragDrop和onDragOver事件里处理，好像不行。希望高手
帮忙。如果能自定义自己的图标就最好！
先看以下代码：
procedure WMDropFiles(var Msg: Tmessage); message wm_DropFiles;
//.....
procedure TfrmEdit.FormCreate(Sender: TObject);
begin
//...
DragAcceptFiles(Handle, True);
end;
procedure TfrmEdit.WMDropFiles(var Msg: Tmessage);
var FileName : array [0..255] of Char;
a: Integer;
begin
a:=0;
repeat
FileName := '';
DragQueryFile(THandle(Msg.WParam), a, FileName, Sizeof(FileName));
if (LowerCase(ExtractFileExt(FileName)) = '.html') then
//这里对文件进行处理
inc(a);
until trim(FileName) = '';
DragFinish(THandle(Msg.WParam));
end;
procedure TfrmEdit.FormDestroy(Sender: TObject);
begin
DragAcceptFiles(Handle, False);
end;
以上的代码我已实现在自己的程序里对拖放文件处理，但是还有一点小问题
我没有满意。就是无论拖来的是什么类型的文件，我的程序都只会显示有个
“+”号的图标。我想拖进的不是HTML文件，则就显示那个不能拖放的图标，
就是一个圆圈，中间有一横的那个图标。如果是HTML文件，则可以进行拖放
。我试过在Form的OnDragDrop和onDragOver事件里处理，好像不行。希望高手
帮忙。如果能自定义自己的图标就最好！