информационная безопасность
без паники и всерьез
 подробно о проектеRambler's Top100
Портрет посетителяАтака на Internet
BugTraq.Ru
Русский BugTraq
 Анализ криптографических сетевых... 
 Модель надежности двухузлового... 
 Специальные марковские модели надежности... 
 Умер Гордон Мур 
 Маск поддержал создателя Дилберта,... 
 Утечка сертификатов GitHub Desktop... 
главная обзор RSN блог библиотека закон бред форум dnet о проекте
bugtraq.ru / форум / programming
Имя Пароль
ФОРУМ
все доски
FAQ
IRC
новые сообщения
site updates
guestbook
beginners
sysadmin
programming
operating systems
theory
web building
software
hardware
networking
law
hacking
gadgets
job
dnet
humor
miscellaneous
scrap
регистрация





Легенда:
  новое сообщение
  закрытая нитка
  новое сообщение
  в закрытой нитке
  старое сообщение
  • Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
  • Новичкам также крайне полезно ознакомиться с данным документом.
Так и должно быть, весна на дворе ;-) 15.04.03 18:45  Число просмотров: 934
Автор: Cyril <sc> Статус: Member
<"чистая" ссылка>
> ...skipped...
> без перехвата никак ...
странно, написал маленький примерчик, все работает
хотелось бы узнать поподробней как создавал объект класса
TShellListView у меня нет( delphi5) поэтому точно проверить не могу
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  end;

  TMyListBox = class(TCustomListBox)
    procedure DBC(var msg: TWMMouse); message WM_LBUTTONDBLCLK;
  end;
var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
var
  ListBox : TMyListBox;
begin
  ListBox := TMyListBox.Create(self);
  Listbox.Parent := self;
end;

{ MyListBox }

procedure TMyListBox.DBC(var msg: TWMMouse);
begin
  ShowMessage('AAA');
end;


---
<programming> Поиск 






Rambler's Top100
Рейтинг@Mail.ru


  Copyright © 2001-2023 Dmitry Leonov   Page build time: 0 s   Design: Vadim Derkach