Форум программистов [Powered by Invision Power Board]

Код


  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;

Код


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;

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

)

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

Код


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;

Код


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.

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

)

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

Код


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;

Код


  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;