VPF::Обработка TWMNotify для ListView - Форум программистов

ChaserHA

Дата 5.2.2007, 15:39 (ссылка)

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

Загрузка ...

Шустрый

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

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

Всем привет.

Обрабатываю сообщение TWMNotify для ListView.

Код


  public
    { Public declarations }
    procedure WMNotify(var Msg: TWMNotify); message WM_NOTIFY;
  end;

procedure TForm1.WMNotify(var Msg: TWMNotify);
begin
 if (Msg.NMHdr.idFrom = Listview.Handle)
 then ListBox2.Items.Insert(0,IntToStr(Msg.NMHdr.code));

 inherited;
end;

Проблема: если ListView находится на форме, то сообщение обрабатвается, ели ListView поместить к примеру на Panel, то TForm1.WMNotify не срабатывает.
Вроде как в такой ситуации надо перекрыть WndProc, но у меня не выходит ((
Пишу в FormCreate "Panel1.WindowProc:=WndProc;", затем обрабатываю,

Код


procedure TForm1.WndProc(var Message: TMessage);
var
 Msg: TWMNotify;
begin
 if Message.Msg=WM_NOTIFY
 then
  begin
   Msg.Msg:=Message.Msg;
   WMNotify(Msg);
   Exit;
  end;
 inherited;
end;

но вылетает ошибка.
Может это конечно полный бред, тогда подскажите как сделать правильно.

MetalFan

Дата 5.2.2007, 21:34 (ссылка)

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

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

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

не, ну правильно)
присвоил только Msg, а в остальном мусор содержится.
пиши Msg := TWMNotify( Message );
и вообще, более "звучные" названия давай переменным) а то Msg.Msg както неочень имхо смотрится)
+

Цитата(ChaserHA @ 5.2.2007, 15:39

)

вылетает ошибка

хошь каверзный вопрос? как высоко летит? вектор движение и ускорение измерить не пробовали?
а если серьезно - КАКАЯ ошибка?

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

There are always someone smarter than you...

ChaserHA

Дата 6.2.2007, 09:23 (ссылка)

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

Загрузка ...

Шустрый

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

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

Благодарю за внимание, исправил, но теперь выдается ошибка "Stack overflow".

Код


procedure TForm1.WndProc(var Message: TMessage);
var
Msg: TWMNotify;
begin
if Message.Msg=WM_NOTIFY
then
  begin
  // WMNotify(TWMNotify(Message));
  Msg:=TWMNotify(Message);
  WMNotify(Msg);
  // Exit;
  end
else inherited;
end;

Это сообщение отредактировал(а) ChaserHA - 6.2.2007, 09:24

MetalFan

Дата 6.2.2007, 09:27 (ссылка)

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

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

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

а зачем ты WMNotify(Msg) делаешь?! или убери эту строчку, или убери message WM_NOTIFY;

Это сообщение отредактировал(а) MetalFan - 6.2.2007, 09:28

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

There are always someone smarter than you...

ChaserHA

Дата 6.2.2007, 09:30 (ссылка)

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

Загрузка ...

Шустрый

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

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

Если убрать эту строчку ничего не меняется, т.е. опять появляется "Stack overflow".

ChaserHA

Дата 6.2.2007, 13:08 (ссылка)

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

Загрузка ...

Шустрый

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

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

На всякий случай привожу полный код.
Если разкомментировать procedure WndProc и Panel1.WindowProc:=WndProc;, то "Stack overflow".
Как сделать чтобы все это работало?

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, ImgList, Menus, ShellApi, ShlObj,
  ComServ, ComObj, ActiveX, ExtCtrls;

type
  TForm1 = class(TForm)
    ImageList1: TImageList;
    ListBox2: TListBox;
    PopupMenu1: TPopupMenu;
    m1: TMenuItem;
    m2: TMenuItem;
    m3: TMenuItem;
    Panel1: TPanel;
    ListView: TListView;
    procedure FormCreate(Sender: TObject);
    //
    procedure WMNotify(var Msg: TWMNotify); message WM_NOTIFY;
  private
    { Private declarations }
  public
    { Public declarations }
  protected
    { Protected declarations }
    // procedure WndProc(var Message: TMessage); override;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
i,j: integer;
nitem: TListItem;
begin
// Panel1.WindowProc:=WndProc;
//
ListView.Clear;
ListView.DoubleBuffered:=true;
// 
j:=0;
for i:=0 to 15 do
  begin
  nitem:=ListView.Items.Add();
  j:=j+5;
  nitem.Caption:='qwerty_'+IntToStr(j);
  nitem.SubItems.Add(IntToStr(i));
  nitem.SubItems.Add('-');
  nitem.SubItems.Add('xXx');
  end;
end;

{
procedure TForm1.WndProc(var Message: TMessage);
var
Msg: TWMNotify;
begin
if Message.Msg=WM_NOTIFY
then
  begin
  // WMNotify(TWMNotify(Message));
  Msg:=TWMNotify(Message);
  // WMNotify(Msg);
  // Exit;
  end
else inherited;
end;
}

procedure TForm1.WMNotify(var Msg: TWMNotify);
begin
if (Msg.NMHdr.idFrom = ListView.Handle)
then
  begin
    ListBox2.Items.Insert(0,IntToStr(Msg.NMHdr.code));
  //
  if (Msg.NMHdr.code = -2)
  then // обрабатываем сообщение, делаем какое-то действие
  end;

inherited;
end;

end.

MetalFan

Дата 6.2.2007, 23:57 (ссылка)

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

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

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

Цитата(ChaserHA @ 6.2.2007, 09:30

)

Если убрать эту строчку ничего не меняется

странно)
хотя понятно. ошибка в глаза бросается.
что у тебя полчуается....
- перекрыт метод WndProc у формы.
- он же назначается как WindowProc Panelи.
приходит сообщение форме, потом попадает в WindowProc панели, которым является WindowProc формы, который опять отдает сообщение WindowProc панели...
вот вам и рекурсия и переполнение стека

варианты решения:
1)  *убери в FormCreate переназначение WindowProc панели
     * в "перекрытом" WndProc вызывать не inherited, а inherited WndProc(Message);

2) *убрать перекрывание WndProc.
    * назвать новый метод NewWndProc.
    * в OnCreate сохранить в поле класса FOldWndProc старый обработчик типа TWndMethod
    * в NewWndProc вызывать FOldWndProc

Это сообщение отредактировал(а) MetalFan - 7.2.2007, 00:07

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

There are always someone smarter than you...

osvirt

Дата 1.4.2012, 13:01 (ссылка)

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

Загрузка ...

Новичок

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

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

День добрый. Похожая неразрешимая (мной smile

) проблема с MonthCalendar.

простецкий код:

Код


procedure TForm1.WMNOTIFY(var message: TWMNOTIFY);
begin
  if PNMHdr(message.NMHdr)^.code = MCN_SELECT then
  begin
    with PNMSelChange(message.NMHdr)^ do
    begin
      ch_date(MonthCalendar1.Date);
    end;
  end;
  inherited;
end;

все работает пока не помещу на Panel (которая сама на панели лежит... не знаю: может там еще придется че-то дописывать из-за этого?)
добавление этого:

Код


  protected
    { Protected declarations }
    procedure WndProc(var Message: TMessage); override;

...

procedure TForm1.WndProc(var Message: TMessage);
var
  Msg: TWMNotify;
begin
  if Message.Msg=WM_NOTIFY
  then
    begin
      Msg:=TWMNotify(Message);
    end
  else inherited;
end;

не меняет ничего... подскажите нубу, как заставить календарь срабатывать на месте smile

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