dear all: 我使用一個元件是ListView,他的CheckBoxes 是設為false,但是為何當我檢查各個Item,他的Checked is true,我並沒有在程式中設定,找過原始碼也找不到,部之各位知道這個細項是在哪邊被預設成true procedure TForm1.ListView1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin p:= ListView1.GetItemAt(X,Y); if(p.Checked) then ShowMessage('true'); end;

function TListItem.GetChecked: Boolean; begin   with Owner.Owner do     if not OwnerData and HandleAllocated then       Result := (ListView_GetCheckState(Handle, Index) <> 0)     else       Result := FChecked; end;    

------
︿︿

抱歉,我沒問清楚一點,我想找的是,在建立ListView元件時,哪個地方,是設定各個item的Checked的狀態.

ruwill:         你是說在 object inspector  內輸入嗎 ?    

------
︿︿

引言: ruwill: 你是說在 object inspector 內輸入嗎 ?

cmf: 不是,而是當我們應用程式建立這元件時,這些Items的Checkec的狀態是在哪邊被設定的,因為在我的程式中,我並未在各個細項的Item ,設立他的Checked的狀態,應該預設一般是false,但是為何是true,我也想不通,也找不到這個預設的地點.謝謝你的幫忙

在 Checkboxes=false 時 會 呼叫 這個 ListView_GetCheckState 函式    procedure TCustomListView.SetCheckboxes(Value: Boolean); var   I: Integer; begin   if FCheckboxes <> Value then   begin     FCheckboxes := Value;     ResetExStyles;     if FCheckboxes then       RestoreChecks     else       for I := 0 to Items.Count - 1 do         Items[I].FChecked := (ListView_GetCheckState(Handle, Items[I].Index) <> 0)   end; end;    

------
︿︿