Delphi下实现StatusBar捕捉双击哪个分栏

正在装载数据……

代码如下：

定义全局变量：

mousex :Integer

procedure TForm1.StatusBar1DblClick(Sender: TObject);

var

x_left,x_right,x,i:integer;

begin

x := mousex ;

x_left := 0;

x_right := 0;

for i := 0 to Self.StatusBar1.Panels.Count -1 do

begin

x_left := x_left + x_right;

if i<>(Self.StatusBar1.Panels.Count -1) then

x_right := x_right + StatusBar1.Panels.Items[i].Width

else

x_right := StatusBar1.Width;

if (x >= x_left)and(x <= x_right) then break;

end;

showmessage('你双击了 '+StatusBar1.Panels.Items[i].Text+' 这个分栏')

end;

procedure TForm1.StatusBar1MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

mousex := X;

end;

本文来源：http://blog.csdn.net/iori13/archive/2007/08/06/1728067.aspx

最新热点		最新推荐		相关文章
		在delphi中使用xml文档有… 初探delphi 7 中的插件编… delphi 2006(dexter) & … 获得windows的版本信息。 “序列号输入助手”源代… rs232串口通讯模块 ado方式下判断数据表是否…		Ant入门－配置和使用选… 浅析Spring框架下PropertyPl… SPRING+STRUTS+HIBERNATE登录… MVP——Model-Viewer-Presen… C++ Object Model constructor and destructor 绑定HGE到AngelScript脚本系… delegate C#关键字 (委托类型… Boyer-Moore String Searchi… 【游戏制作基础】网络游戏设…