|
|
|
 用C#实现CGI编程 |
p;
override;
//重载WndProc，处理发送到控件的消息
public
end;
其中WndProc方法指定控件对消息的响应，输入参数是TMessage类型，该数据类型是一个记录，包含了消息代码和消息的参数，消息参数可以用Longint或Word方式获得。
2.对滚动事件做出响应，在WndProc方法中加入如下处理代码：
if (Msg.Msg=WM_VSCROLL) and
(Msg.WParamLo=SB_ENDSCROLL) then
begin
//获得鼠标位置对应的列
ItemIndex:=ItemAtPos(Point,true);
Form1.Edit1.Text:=inttostr(ItemIndex);
inherited;
end
else
inherited;
当程序接收到WM_VSCROLL消息，且WParamLo参数为SB_ENDSCROLL时，表示竖直滚动条停止滚动，就可以用ItemAtPos方法确定与鼠标位置对应的ItemIndex。ItemAtPos方法的Point参数是一个TPoint类型的变量，用来保存鼠标的位置。
3.定义方法ListBoxMouseMove，在鼠标移动时，将当前位置保存在Point中：
procedure TForm1.ListBoxMouseMove(Sen
|
|
|
|