konhon

          忘掉過去,展望未來。找回自我,超越自我。
          逃避不一定躲的過, 面對不一定最難過, 孤單不一定不快樂, 得到不一定能長久, 失去不一定不再擁有, 可能因為某個理由而傷心難過, 但我卻能找個理由讓自己快樂.

          Google

          BlogJava 首頁 新隨筆 聯(lián)系 聚合 管理
            203 Posts :: 0 Stories :: 61 Comments :: 0 Trackbacks

          uses CommCtrl;

          procedure TForm1.ListView1MouseMove(Sender: TObject; Shift: TShiftState; X,
            Y: Integer);
          var
            item: TListItem;
            lvhti: LV_HITTESTINFO;
          begin
            item := ListView1.GetItemAt(X, Y);
            if (item <> nil) then
              Caption := 'Mouse at: ' + item.Caption
            else
            begin
              lvhti.pt.X := X;
              lvhti.pt.Y := Y;
              ListView_SubItemHitTest(ListView1.Handle, @lvhti);
              if Assigned(ListView1.Items[lvhti.iItem])
                and (ListView1.Items[lvhti.iItem].SubItems.Count >= lvhti.iSubItem) then
                Caption := 'Mouse at:' + ListView1.Items[lvhti.iItem].SubItems[lvhti.iSubItem - 1];
            end;
          end;

          posted on 2005-08-25 06:45 konhon 優(yōu)華 閱讀(1113) 評論(0)  編輯  收藏 所屬分類: Delphi
          主站蜘蛛池模板: 浑源县| 溆浦县| 尼木县| 探索| 阳泉市| 金川县| 乌兰浩特市| 南康市| 新安县| 九寨沟县| 双柏县| 蒲江县| 桃源县| 成武县| 潮安县| 芜湖市| 柳江县| 南乐县| 卓资县| 彩票| 永胜县| 武宁县| 临城县| 屯门区| 偃师市| 大连市| 昌都县| 平陆县| 巫山县| 青河县| 拜泉县| 西平县| 蒙自县| 油尖旺区| 抚顺县| 瑞安市| 云梦县| 老河口市| 六枝特区| 绥德县| 峨眉山市|