掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
TListView のスクロール量(ピクセル値)の取得について (ID:26807)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
クリックしたヘッダーの直下にFormを出せばいいのかな？ uses CommCtrl; procedure TForm1.ListView1ColumnClick(Sender: TObject; Column: TListColumn); var x, y: Integer; pt: TPoint; f2: TForm; hHeader: HWND; R: TRect; begin hHeader:= ListView_GetHeader(ListView1.Handle); Header_GetItemRect(hHeader, Column.Index, @R); x:= R.Left -GetScrollPos(ListView1.Handle, SB_HORZ); y:= R.Bottom-R.Top; pt:= ListView1.ClientOrigin; f2:= TForm.Create(self); with f2 do try parent:= self.Parent; SetBounds(pt.X+x, pt.Y+y, Width, Height); ShowModal; finally Release; end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.