VPF::ListBox - Форум программистов

Rondo

Дата 19.5.2006, 21:58 (ссылка)

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

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 154
Регистрация: 24.2.2006
Где: там..

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

Есть задача - перетащить допустим значок с рабочего стола в ListBox, и при нажатии запускалось это приложение. Как все это замутить?

--------------------

Начинающий кодер

Rondo

Дата 19.5.2006, 22:50 (ссылка)

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

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 154
Регистрация: 24.2.2006
Где: там..

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

В DRKB было найдено слудующее:

Код


type  
  TForm1 = class(TForm)  
    ListBox1: TListBox;  
    procedure FormCreate(Sender: TObject);  
  protected  
    procedure WMDROPFILES (var Msg: TMessage); message WM_DROPFILES;  
  private  
  public  
  end;  

var  
  Form1: TForm1;  

implementation  
uses shellapi;  

{$R *.DFM}  

procedure TForm1.FormCreate(Sender: TObject);  
begin  
  DragAcceptFiles(Form1.Handle, true);  
end;  

procedure TForm1.WMDROPFILES (var Msg: TMessage);  
var  
  i,  
  amount,  
  size: integer;  
  Filename: PChar;  
begin  
  inherited;  
  Amount := DragQueryFile(Msg.WParam, $FFFFFFFF, Filename, 255);  
  for i := 0 to (Amount - 1) do  
  begin  
    size := DragQueryFile(Msg.WParam, i , nil, 0) + 1;  
    Filename:= StrAlloc(size);  
    DragQueryFile(Msg.WParam,i , Filename, size);  
    listbox1.items.add(StrPas(Filename));  
    StrDispose(Filename);  
  end;  
  DragFinish(Msg.WParam);  
end;

Только в ListBox переносится полный путь к файлу, мне надо чтоб он иконку там ставил и только название .exe файла..

--------------------

Начинающий кодер

Guedda

Дата 20.5.2006, 00:36 (ссылка)

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

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

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

Хм... Ну и используй тогда ExtractFileName...

--------------------

Ll 2

Rondo

Дата 20.5.2006, 02:27 (ссылка)

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

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 154
Регистрация: 24.2.2006
Где: там..

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

можно пример? smile

--------------------

Начинающий кодер

Albinos_x

Дата 20.5.2006, 09:25 (ссылка)

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

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

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

Цитата(Rondo @ 20.5.2006, 02:27

)

можно пример?

Код


listbox1.items.add(ExtractFileName(StrPas(Filename)));

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

Sunvas

Дата 21.5.2006, 00:37 (ссылка)

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

Загрузка ...

Соль и сахар

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

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

Цитата(Rondo @ 19.5.2006, 22:50

)

мне надо чтоб он иконку там ставил

Rondo, иконку в стандартный listbox не впихнешь никак! Тебе нужно использовать Tlistview и Timagelist.

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

Poseidon

Дата 21.5.2006, 03:56 (ссылка)

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

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

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

Цитата(Sunvas @ 21.5.2006, 00:37

)

Rondo, иконку в стандартный listbox не впихнешь никак!

Да ну! Что, серьезно?

http://vingrad.ru/DELPHI-DLP-000734

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

Rondo

Дата 21.5.2006, 14:07 (ссылка)

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

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 154
Регистрация: 24.2.2006
Где: там..

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

Цитата(Albinos_x @ 20.5.2006, 09:25

)

listbox1.items.add(ExtractFileName(StrPas(Filename)));

Это надо делать в OnDragDrop?? или в OnChange ListBoxa?

Это наверное тоже обязательно надо? smile

Код


procedure TForm1.FormCreate(Sender: TObject);  
begin  
  DragAcceptFiles(Form1.Handle, true);  
end;

--------------------

Начинающий кодер

Albinos_x

Дата 21.5.2006, 15:25 (ссылка)

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

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

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

Цитата(Rondo @ 21.5.2006, 14:07

)

Это наверное тоже обязательно надо?

Вам же пример сверху привели....

Цитата(Rondo @ 21.5.2006, 14:07

)

Это надо делать в OnDragDrop?? или в OnChange ListBoxa?

вместо:

Код


listbox1.items.add(StrPas(Filename));

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

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