掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
TListViewのvsReport形式でチェックボックスをチェックなし、あり、不可（グレー）にしたい (ID：38116)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
初めて使ってみましたが、確かに挙動不審ですね。 こんな感じでどうでしょう？ procedure TForm1.FormCreate(Sender: TObject); var i,p: Integer; str:string; item:TListItem; begin ListView1.Checkboxes:=True; for i := 0 to 10 - 1 do begin item := ListView1.Items.Add; p := i mod 4; case p of 0:str:='未チェック'; 1:str:='チェック'; 2:str:='絶対未チェック'; 3:str:='絶対チェック'; end; item.Caption := str + IntToStr(i); Item.StateIndex := p; end; end; procedure TForm1.ListView1AdvancedCustomDrawItem(Sender: TCustomListView; Item: TListItem; State: TCustomDrawState; Stage: TCustomDrawStage; var DefaultDraw: Boolean); begin if item.StateIndex >= 2 then ListView1.Canvas.Font.Color := clRed; end; procedure TForm1.ListView1ItemChecked(Sender: TObject; Item: TListItem); begin if item=nil then Exit; if item.StateIndex >= 2 then begin item.Checked := not Item.Checked; item.Checked := (item.StateIndex mod 2 = 1); end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.