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

ZBugz

Дата 21.8.2009, 14:28 (ссылка)

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

Загрузка ...

Опытный

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

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

Всем причет.
А как в ShellListView поймать событие что клик был мышкой в пустое место ? А то у меня в ошибку вываливаеться и поймать не могу это событие.
Т.е. если написать

Код


if ShellListView .Folders[FileTree.ItemIndex].PathName='' then exit

То в ошибку падает

Rrader

Дата 21.8.2009, 17:45 (ссылка)

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

Загрузка ...

Inspired =)

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

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

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, CommCtrl, ShellCtrls;

type
  TForm1 = class(TForm)
    ShellListView1: TShellListView;
    procedure ShellListView1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ShellListView1Click(Sender: TObject);
var
  Info: TLVHitTestInfo;
begin
  Info.pt := ShellListView1.ScreenToClient(Mouse.CursorPos);
  ListView_HitTest(ShellListView1.Handle, Info);
  if (Info.flags and LVHT_NOWHERE) <> 0 then
    ShowMessage('Клик по пустому месту!');
end;

end.

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

Let's do this quickly!
Rest in peace, Vit!

Keeper89

Дата 21.8.2009, 18:25 (ссылка)

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

Загрузка ...

Эксперт

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

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

Или так:

Код


procedure TForm1.ShellListView1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Assigned(ShellListView1.GetItemAt(X, Y)) then
    Showmessage('Клик по пункту!')
  else
    Showmessage('Пустое место!')
end;

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

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

ZBugz

Дата 24.8.2009, 08:09 (ссылка)

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

Загрузка ...

Опытный

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

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

Сапасибо

1-е не пошло, пишет что незнам TLVHitTestInfo. Кого еще заюсать ? В инете не сказанно.
2-е Пашет нормально, но вот это тока для мышки, если же руками скакать по файлам и пакам, то выделенные элементы не вылавливаються.
Я так понял в MouseDown надо написать просто обработчик, а что бы элементы ловило, соответственно в Click обрабатывать ?

Rrader

Дата 24.8.2009, 12:20 (ссылка)

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

Загрузка ...

Inspired =)

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

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

Цитата(ZBugz @ 24.8.2009, 14:09

)

1-е не пошло, пишет что незнам TLVHitTestInfo. Кого еще заюсать ? В инете не сказанно.

Код


uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, CommCtrl, ShellCtrls;

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

Let's do this quickly!
Rest in peace, Vit!

ZBugz

Дата 25.8.2009, 07:45 (ссылка)

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

Загрузка ...

Опытный

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

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

Цитата(Rrader @ 24.8.2009, 12:20)

Цитата(ZBugz @ 24.8.2009, 14:09

)

1-е не пошло, пишет что незнам TLVHitTestInfo. Кого еще заюсать ? В инете не сказанно.

Код


uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, CommCtrl, ShellCtrls;

Все есть, не пашет smile

Ну 2-е работает и ладно smile

Спасибо.

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