请大家帮帮忙，怎样把filelistbox1里的文件拖放到listbox1中,而且只是把文件名放在listbox1里.?????

[lifarken]

请大家帮帮忙，怎样把filelistbox1里的文件拖放到listbox1中,而且只是把文件名放在listbox1里.?????
是把文件的全路径拖放在listbox1中去.???

[laza]

把FileListBox的DragMode属性值设为dmAutomatic;
在这两个控件里加入下面的代码就行了。

procedure TForm1.FileListBox1EndDrag(Sender, Target: TObject; X,
Y: Integer);
begin
if Target is TListBox then
begin
Listbox1.Items.Add(ExtractFileName(FileListBox1.FIleName));
Cursor := crDefault;
end;
end;

procedure TForm1.ListBox1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
Cursor := crDrag;
end;

[xhjdm]

to laza(秋高蓝)：FileListBox1.FIleName已经带路径了，所以没必要ExtractFileName。

[xycleo]

在filelistbox1里的文件拖过来时在事件中加上Listbox1->Add()就可以啦!!!
项羽大哥有bcb的源代码!!你问问他吧!!

[lichp]

关注！

[xhjdm]

在filelistbox1中有ondragdrop,ondragover,onenddrag,onstartdrag四个事件。可以在onstartdrag中让鼠标形状为crDrag，在onenddrag中返回缺省值。

[luhongjun]

我这有BCB的你用不?

[lifarken]

项羽大哥可以给我源代码吗????
名位大哥有更多的源代码吗????可给我多一点的选择.

[lifarken]

项羽大哥可以给我源代码吗????
名位大哥有更多的源代码吗????可给我多一点的选择.

[rh]

够啦，给分吧