VPF::Drag & Drop между формами - Форум программистов

okamor71

Дата 3.11.2006, 00:26 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 22
Регистрация: 15.10.2006

Репутация: нет
Всего: нет

Есть две формы, на одной TListView, на котором отображаются эскизы картинок, на другой TImage, куда собственно нужно перенести элемент с TListView, тоесть передать имя файла, который должен прогрузится в TImage.

Snowy

Дата 3.11.2006, 00:35 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

www.drkb.ru
Раздел
VCL -> Перетаскивание объектов, Drag and Drop, Docking -> Примеры использования Drag and Drop для различных визуальных компонентов

okamor71

Дата 3.11.2006, 00:59 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 22
Регистрация: 15.10.2006

Репутация: нет
Всего: нет

да нет это не катит, погодь сейчас код брошу

Форма имеет свйство MDI

Код



// Заполняем cxListView1
procedure TForm4.FillListView(path: string);
var
  sr: TSearchRec;
  bmp, pic: TBitMap;
begin
  bmp:=TBitmap.Create;
  pic:=TBitmap.Create;
  cxListView1.Clear;
  try
    if FindFirst(path+'*.obj',$20,sr)=0 then begin
      repeat
        if (sr.Attr and $20)=$20 then begin
          bmp.LoadFromFile(path+sr.Name);
          pic.Width:=ImageList1.Width;
          pic.Height:=ImageList1.Height;
          pic.Canvas.StretchDraw(Rect(0,0,pic.Width,pic.Height),bmp);
          ImageList1.Add(pic,nil);
          with cxListView1.Items.Add do begin
            Caption:=sr.Name;
            ImageIndex:=cxListView1.Items.Count-1;
          end;
        end;
      until FindNext(sr)<>0;
      FindClose(sr);
    end;
  finally
    bmp.Free;
    pic.Free;
  end;
end;


procedure TForm4.cxListView1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
 Accept:=Source=cxListView1;
end;

А вот то куда я это должен закинуть

Код


procedure TForm1.Image2DragDrop(Sender, Source: TObject; X, Y: Integer);
var
 st: string;
begin
  st:=(Source as Form4.cxListView1).selected.text;
  Image2.Picture.LoadFromFile('d:\test\'+st);
end;

Snowy

Дата 3.11.2006, 01:07 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Драговер нужно у имаджа делать.

Код


procedure TForm1.Image2DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  if Source is TListView then Accept := true;
end;

okamor71

Дата 3.11.2006, 01:35 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 22
Регистрация: 15.10.2006

Репутация: нет
Всего: нет

Snowy, большое спасибо вс е заработало

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »