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

chenjbjbjb 2002-05-20 04:22:46
我想截获treeview的WM_VSCROLL事件，这个treeview是我在编辑的时候就拖到from上的。
...全文
59 11 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
11 条回复
切换为时间正序
请发表友善的回复…
发表回复
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
  • 打赏
  • 举报
 回复
截获滚动条消息 ：

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
  • 打赏
  • 举报
 回复
截获滚动条消息 ：
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
  • 打赏
  • 举报
 回复
没人来？！！！？
密码控件(加强保护)
为了防御这种攻击，控件可能采用了如限制连续尝试次数、使用复杂性要求（如必须包含数字、大小写字母等）、动态延时响应或验证码等策略，阻止恶意尝试。 在VB环境下开发的这个密码控件，可能还包含了以下特性： 1. ...
博客-win32 工具提示ToolTip控件的使用
在Win32 API中，我们可以利用`ToolTip`控件来创建这些动态显示文本的窗口。这篇博客将深入探讨如何在Win32应用程序中实现和使用`ToolTip`控件。 首先，我们需要了解`ToolTip`的基本概念。`ToolTip`控件是一个小型的...
在surfaceview上放置控件
4. **添加和管理控件**：在FrameLayout中，你可以通过代码动态添加或移除按钮等控件，也可以在XML布局文件中预先定义好。确保控件的位置不会覆盖到SurfaceView的关键部分。 5. **交互逻辑**：当用户点击按钮时，...
动态截获并显示正在运行其他窗口内容VC源代码
2. **显示窗口内容**: 显示截取到的窗口内容需要创建一个新的窗口或者控件，然后将截取的位图绘制到这个新的画布上。这通常涉及到GDI（Graphics Device Interface）技术，GDI是Windows API提供的一套图形绘制函数，...
易语言-设置控件锚点模块
通过学习这样的资源，你可以增强对易语言编程的理解，掌握控件锚点的实现技巧，从而在创建动态、适应性强的用户界面时更加得心应手。 总之，“易语言-设置控件锚点模块”是一个实用的工具，它教你如何在易语言环境...
Delphi

5,927

社区成员

262,932

社区内容

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章