Лист

[ZhekON]

Люди подскажыте как перетащить элемент из Filelistbox в Listbox, и чтобы путь к файлу кудато тожэ запоминать, для того чтобы потом можно было обращатся к этому файлу.

[bphoenix]

Попробуй следующий код и не забудь выставить свойство DragMode у ListBox/FileListBox в dmAutomatic

procedure TForm1.ListBox1DragDrop(Sender, Source: TObject; X, Y: Integer);
var
  Str : String;
  Ptr : PChar;
begin
  if (Source is TFileListBox) then
    begin
      Str := (Source as TFileListBox).FileName;
      {
        здесь мы выделяем память для хранения полного имени файла.
        когда путь будет уже не нужен, не забудь освободить память
        при помощи FreeMem.
        делается это примерно так:
        for I := 0 to ListBox1.Items.Count - 1 do
          try
            FreeMem( Pointer(ListBox1.Items.Objects[ I ]) );
          except
          end;
      }
      Ptr := AllocMem( Length( Str ) + 1 );
      CopyMemory( Ptr, @Str[ 1 ], Length( Str ) );
      (Sender as TListBox).AddItem( ExtractFileName( Str ), TObject(Ptr) );
    end;
end;

procedure TForm1.ListBox1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  if (Source is TFileListBox) then
    Accept := True
  else
    Accept := False;
end;

procedure TForm1.ListBox1DblClick(Sender: TObject);
var
  Ptr : PChar;
begin
  if (Sender as TListBox).ItemIndex >= 0 then
    begin
      Ptr := PChar((Sender as TListBox).Items.Objects[ (Sender as TListBox).ItemIndex ]);
      ShowMessage( Ptr );
    end;
end;

[ZhekON]

Сообщение от bphoenix

{
здесь мы выделяем память для хранения полного имени файла.
когда путь будет уже не нужен, не забудь освободить память
при помощи FreeMem.
делается это примерно так:
for I := 0 to ListBox1.Items.Count - 1 do
try
FreeMem( Pointer(ListBox1.Items.Objects[ I ]) );
except
end;
}

вот это не понял, как выделять? через GetMem или как? напишы...ато я не хорошо знаю эти функции...

[bphoenix]

а там уже написано как. через AllocMem

if (Source is TFileListBox) then
begin
Str := (Source as TFileListBox).FileName;
{
здесь мы выделяем память для хранения полного имени файла.
когда путь будет уже не нужен, не забудь освободить память
при помощи FreeMem.
делается это примерно так:
for I := 0 to ListBox1.Items.Count - 1 do
try
FreeMem( Pointer(ListBox1.Items.Objects[ I ]) );
except
end;
}
>>>>>> Ptr := AllocMem( Length( Str ) + 1 ); <<<<<< // здес выделяется память
CopyMemory( Ptr, @Str[ 1 ], Length( Str ) );
(Sender as TListBox).AddItem( ExtractFileName( Str ), TObject(Ptr) );
end;

[ZhekON]

Спасибо, розобрался- работает!
Но возникла ещё одна проблема
Как при нажатии в другой форме Button'а получить адрес файла(текущего или первого в списке ListBox'а) в какуюто переменную?

[bphoenix]

в модуль, где находится форма с кнопкой в разделе implementation добавляешь uses <имя модуля, где форма с ListBox'ом>. проще всего это сделать через Alt + F11. теперь предположим, что форма с ListBox'ом называется Form1. тогда используешь следующий код:

procedure TForm2.Button1Click(Sender: TObject);
var
S : String;
begin
if Form1.ListBox1.ItemIndex > -1 then
begin
S := PChar(Form1.ListBox1.Items.Objects[ Form1.ListBox1.ItemIndex ]);
ShowMessage( S );
end;
end;