![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Drag and Drop Component Suite
D7 © (2008-10-30 18:07:00)Перетаскиваю из интернета в TImage файл изображения через компонент TDropComboTarget. Как можно получить имя перетаскиваемого файла.
Andy BitOff (2008-10-30 20:44:00) [1]Demos\TargetDemo\Main.pas
procedure TForm1.DropFileTarget1Drop(Sender: TObject; ShiftState: TShiftState; Point: TPoint; var Effect: Integer);
begin
...
// Copy the file names from the DropTarget component into the list view.
for i := 0 to DropFileTarget1.Files.Count-1 do
begin
Item := Listview1.Items.Add;
Item.Caption := DropFileTarget1.Files[i];
// Display mapped names if present.
if (DropFileTarget1.MappedNames.Count > 0) then
Item.SubItems.Add(DropFileTarget1.MappedNames[i]);
...
Andy BitOff (2008-10-30 20:31:00) [2]Блин, там же демок тьма.
{RASkov} (2008-10-30 19:35:00) [3]> [2] D7 (30.10.08 18:20)
Какого такого? Наблюдай тогда другое свойство.... :)
Или ты предлогаешь всем установить данный компонент?
D7 (2008-10-30 18:20:00) [4]
> Изучить свойства TDropComboTarget ?
Такого свойства не наблюдаю.
Jeer (2008-10-30 18:16:00) [5]Изучить свойства TDropComboTarget ?