送分，如何截获控件的消息（不是动态创建的控件），我在线等。

2002-05-20 04:22:46 114 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

VC++ MFC按钮控件：从消息机制到动态创建与事件处理实战在Windows桌面应用开发中，消息驱动模型是GUI编程的核心基础。操作系统通过消息队列和窗口过程（WndProc）实现用户输入与应用程序的交互，这一原理构成了所有控件响应的底层机制。MFC框架通过消息映射机制对此进行了封装，将繁琐的窗口过程转化为直观的成员函数映射，极大提升了开发效率。这种封装不仅简化了事件处理流程，也为构建复杂桌面应用提供了稳定基础。按钮控件作为最常用的交互元素，其创建方式分为静态资源编辑和动态代码生成两种。静态创建适用于界面固定的场景，而动态创建则提供了运行时灵活布局的能力，两者都需要阅读详情

我想截获treeview的WM_VSCROLL事件，这个treeview是我在编辑的时候就拖到from上的。

...全文

Multisim14.3主数据库访问冲突：Windows更新KB5065426卸载与系统兼容性修复指南本文针对Multisim14.3在Windows更新KB5065426后出现的主数据库访问冲突问题，提供了详细的解决方案。通过卸载问题更新、修复系统兼容性及调整权限设置，帮助用户快速恢复元器件库的正常访问，确保电路仿真设计的连续性。阅读详情

chenjbjbjb

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

lizhenjia 2002-05-20

打赏
举报

to dancemaple(枫之舞):
我认为从安全性或者是从习惯上来讲，是绝对应该加上那句话的,因为treeview1的WindowProc原来是指向它自身的消息处理句柄的，而把NewWndProc赋给treeview1.WindowProc后，虽然还进行原来句柄的处理FOldWndProc(Msg),但是毕竟它的windowproc指针变了,所以在退出消息循环之前还是应该把指针复位.欢迎讨论，因为我对此只是一知半解!

dancemaple 2002-05-20

打赏
举报

To: lizhenjia(暴雪)
你的这些代码有什么用呢：
procedure TForm1.FormDestroy(Sender: TObject);
begin
treeview1.WindowProc:=FOldWndProc;
end;
在窗体即将被销毁之前，已经没有必要让TreeView来响应消息循环了。况且在NewWndProc里面已经调用原来的消息处理方法

chenjbjbjb 2002-05-20

打赏
举报

to lxpbuaa(桂枝香在故国晚秋)
我的treeview是拖到form上的，不是创建的，这一句我写那里?
procedure WMVSCROLL(var msg:TWMSysCommand);message WM_VSCROLL;

to cg1120(代码最优化)
I will try

火鸟李国平 2002-05-20

打赏
举报

以上的都没错,我就不废话了!

lizhenjia 2002-05-20

打赏
举报

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls;
type
TForm1 = class(TForm)
TreeView1: TTreeView;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
FOldWndProc:TWndMethod;
procedure NewWndProc(var Msg: TMessage);
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.NewWndProc(var Msg: TMessage);
begin
if Msg.Msg=WM_VSCROLL then
ShowMessage('WMVSCROLL');
FOldWndProc(Msg);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
FOldWndProc:=treeview1.WindowProc;
treeview1.WindowProc:=NewWndProc;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
treeview1.WindowProc:=FOldWndProc;
end;
end.

lizhenjia 2002-05-20

打赏
举报

try:

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls;
type
TForm1 = class(TForm)
TreeView1: TTreeView;
procedure FormCreate(Sender: TObject);
private
FOldWndProc:TWndMethod;
procedure NewWndProc(var Msg: TMessage);
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.NewWndProc(var Msg: TMessage);
begin
if Msg.Msg=WM_VSCROLL then
ShowMessage('WMVSCROLL');
FOldWndProc(Msg);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
FOldWndProc:=treeview1.WindowProc;
treeview1.WindowProc:=NewWndProc;
end;
end.

Billy_Chen28 2002-05-20

打赏
举报

截获滚动条消息：

type
{$IFDEF WIN32}
WParameter = LongInt;
{$ELSE}
WParameter = Word;
{$ENDIF}
LParameter = LongInt;

{Declare a variable to hold the window procedure we are replacing}
var
OldWindowProc : Pointer;

function NewWindowProc(WindowHandle : hWnd;
TheMessage : WParameter;
ParamW : WParameter;
ParamL : LParameter) : LongInt
{$IFDEF WIN32} stdcall; {$ELSE} ; export; {$ENDIF}
var
TheRangeMin : integer;
TheRangeMax : integer;
TheRange : integer;
begin

if TheMessage = WM_VSCROLL then begin
{Get the min and max range of the horizontal scroll box}
GetScrollRange(WindowHandle,
SB_HORZ,
TheRangeMin,
TheRangeMax);
{Get the vertical scroll box position}
TheRange := GetScrollPos(WindowHandle,
SB_VERT);
{Make sure we wont exceed the range}
if TheRange < TheRangeMin then
TheRange := TheRangeMin else
if TheRange > TheRangeMax then
TheRange := TheRangeMax;
{Set the horizontal scroll bar}
SetScrollPos(WindowHandle,
SB_HORZ,
TheRange,
true);
end;

if TheMessage = WM_HSCROLL then begin
{Get the min and max range of the horizontal scroll box}
GetScrollRange(WindowHandle,
SB_VERT,
TheRangeMin,
TheRangeMax);
{Get the horizontal scroll box position}
TheRange := GetScrollPos(WindowHandle,
SB_HORZ);
{Make sure we wont exceed the range}
if TheRange < TheRangeMin then
TheRange := TheRangeMin else
if TheRange > TheRangeMax then
TheRange := TheRangeMax;
{Set the vertical scroll bar}
SetScrollPos(WindowHandle,
SB_VERT,
TheRange,
true);
end;

{ Call the old Window procedure to }
{ allow processing of the message. }
NewWindowProc := CallWindowProc(OldWindowProc,
WindowHandle,
TheMessage,
ParamW,
ParamL);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
{ Set the new window procedure for the control }
{ and remember the old window procedure. }
OldWindowProc := Pointer(SetWindowLong(ScrollBox1.Handle,
GWL_WNDPROC,
LongInt(@NewWindowProc)));
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
{ Set the window procedure back }
{ to the old window procedure. }
SetWindowLong(ScrollBox1.Handle,
GWL_WNDPROC,
LongInt(OldWindowProc));

end;

Billy_Chen28 2002-05-20

打赏
举报

Billy_Chen28 2002-05-20

打赏
举报

截获滚动条消息：
type
{$IFDEF WIN32}
WParameter = LongInt;
{$ELSE}
WParameter = Word;
{$ENDIF}
LParameter = LongInt;

{Declare a variable to hold the window procedure we are replacing}
var
OldWindowProc : Pointer;

function NewWindowProc(WindowHandle : hWnd;
TheMessage : WParameter;
ParamW : WParameter;
ParamL : LParameter) : LongInt
{$IFDEF WIN32} stdcall; {$ELSE} ; export; {$ENDIF}
var
TheRangeMin : integer;
TheRangeMax : integer;
TheRange : integer;
begin

if TheMessage = WM_VSCROLL then begin
{Get the min and max range of the horizontal scroll box}
GetScrollRange(WindowHandle,
SB_HORZ,
TheRangeMin,
TheRangeMax);
{Get the vertical scroll box position}
TheRange := GetScrollPos(WindowHandle,
SB_VERT);
{Make sure we wont exceed the range}
if TheRange < TheRangeMin then
TheRange := TheRangeMin else
if TheRange > TheRangeMax then
TheRange := TheRangeMax;
{Set the horizontal scroll bar}
SetScrollPos(WindowHandle,
SB_HORZ,
TheRange,
true);
end;

if TheMessage = WM_HSCROLL then begin
{Get the min and max range of the horizontal scroll box}
GetScrollRange(WindowHandle,
SB_VERT,
TheRangeMin,
TheRangeMax);
{Get the horizontal scroll box position}
TheRange := GetScrollPos(WindowHandle,
SB_HORZ);
{Make sure we wont exceed the range}
if TheRange < TheRangeMin then
TheRange := TheRangeMin else
if TheRange > TheRangeMax then
TheRange := TheRangeMax;
{Set the vertical scroll bar}
SetScrollPos(WindowHandle,
SB_VERT,
TheRange,
true);
end;

{ Call the old Window procedure to }
{ allow processing of the message. }
NewWindowProc := CallWindowProc(OldWindowProc,
WindowHandle,
TheMessage,
ParamW,
ParamL);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
{ Set the new window procedure for the control }
{ and remember the old window procedure. }
OldWindowProc := Pointer(SetWindowLong(ScrollBox1.Handle,
GWL_WNDPROC,
LongInt(@NewWindowProc)));
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
{ Set the window procedure back }
{ to the old window procedure. }
SetWindowLong(ScrollBox1.Handle,
GWL_WNDPROC,
LongInt(OldWindowProc));

end;

lxpbuaa 2002-05-20

打赏
举报

procedure WMVSCROLL(var msg:TWMSysCommand);message WM_VSCROLL;
procedure TTreeView1.WMVSCROLL(var msg: TWMSysCommand);
0Abegin
ShowMessage('垂直滚动');
end;

—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Desire := '加不加分随你';
—————————————————————————————————

　　　　　　　

chenjbjbjb 2002-05-20

打赏
举报

没人来？！！！？

送分，如何截获控件的消息（不是动态创建的控件），我在线等。

相关推荐