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
          主站蜘蛛池模板: 石家庄市| 福州市| 南溪县| 那曲县| 梁河县| 克东县| 双柏县| 桃园县| 阿城市| 宿州市| 宣恩县| 舟山市| 平定县| 秀山| 保山市| 浦江县| 东乡| 南岸区| 晋江市| 洪洞县| 延川县| 德兴市| 奇台县| 都江堰市| 恭城| 石狮市| 习水县| 银川市| 上蔡县| 普定县| 宽甸| 方正县| 岳西县| 和平县| 福泉市| 山丹县| 嘉义市| 湄潭县| 贵港市| 信阳市| 宜春市|