怎么实现EditBox的DropFile的功能

2024-12-25 08:16:43
推荐回答(1个)
回答1:

定义区
//{{{{{{{{{{{{{{{{{{{{{{{{拖动打开文件{{{{{{{{{{{{{{{{{{{{{{{{{{{{//
procedure TMainForm.DropFiles(var Msg: TMessage);
var i, Count: integer;
buffer: array[0..1024] of Char;
begin
inherited;
Count := DragQueryFile(Msg.WParam, $FFFFFFFF, nil, 256); // 第一次调用得到拖放文件的个数
for i := 0 to Count - 1 do
begin
buffer[0] := #0;
DragQueryFile(Msg.WParam, i, buffer, sizeof(buffer)); // 第二次调用得到文件名称
Richedit1.Lines.LoadFromFile(buffer);
end;
FileName:= buffer;
{FileNameC:= FileName;
while Pos('\',FileNameC) > 0 do
Delete(FileNameC,1,1); }
Caption :=ExtractFilename(FileName);
end;
//}}}}}}}}}}}}}}}}}}}}}}}}}}}}}end}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}//

没办法,是上次老师交我的,没认真听,先给你代码!希望能有帮助