Chinaunix首页 | 论坛 | 博客
  • 博客访问: 3493938
  • 博文数量: 738
  • 博客积分: 1860
  • 博客等级: 上尉
  • 技术积分: 7745
  • 用 户 组: 普通用户
  • 注册时间: 2008-04-07 08:51
个人简介

偶尔有空上来看看

文章分类

全部博文(738)

文章存档

2023年(75)

2022年(134)

2021年(238)

2020年(115)

2019年(11)

2018年(9)

2017年(9)

2016年(17)

2015年(7)

2014年(4)

2013年(1)

2012年(11)

2011年(27)

2010年(35)

2009年(11)

2008年(11)

最近访客

分类: C/C++

2011-08-03 09:48:08

procedure TForm1.StatusBar1DblClick(Sender: TObject);
var
  I, X, n, m: Integer;
begin
  with Sender as TStatusBar do begin
    X := ScreenToClient(Mouse.CursorPos).X;
    n := 0;
    for I := 0 to Panels.Count - 1 do begin
      if I = Panels.Count - 1 then m := Width //最后一个Panel的Width没有意义
      else m := Panels[I].Width;
      n:=n+m;
      if (n > x) then begin
        showmessage(timetostr(now)+'        第'+inttostr(I)+'个 '+Panels[I].Text);
        Break;
      end;
    end;
  end;
end;
阅读(2762) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~