掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
TreeViewのアイテムの高さを変更 (ID：6407)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こんなの作ったことあります。ハズレでしたら忘れてください。 unit MyTreeView; interface uses Windows, Messages, SysUtils, Classes, Controls, ComCtrls; type TMyTreeView = class(TTreeView) private { Private 宣言 } FItemHeight: Integer; procedure SetItemHeight(Value: Integer); function GetItemHeight: Integer; published { Published 宣言 } property ItemHeight: Integer read GetItemHeight write SetItemHeight; end; procedure Register; implementation uses CommCtrl; procedure Register; begin RegisterComponents('MyCompo', [TMyTreeView]); end; procedure TMyTreeView.SetItemHeight(Value: Integer); begin if FItemHeight<>Value then begin FItemHeight := Value; SendMessage(Handle,TV_FIRST+27,FItemHeight,0); end; end; function TMyTreeView.GetItemHeight: Integer; begin Result := SendMessage(Handle,TV_FIRST+28,0,0); end; end.
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.