DBGrid：行が選択されないようにするにはどうすればいいですか？

Question

私は、ユーザーがクリックしてプロセスのために複数選択するためのエントリのグリッドを持っています。エントリの一部は、最初に選択された行の値に基づいて無効になります。

私は約DBGrid.SelectedRows.CurrentRowSelectedを知っていますが、条件をTrueまたはFalseに設定するための適切な場所を見つけることができません。

このような何か：

var 
    bm: TBookmark; 
    CachedIdentity: String; 
    CanSelect: Boolean; 
begin 
    with dgbSkypeConversations do 
    begin 
    if SelectedRows.Count > 0 then 
    begin 
     DataSource.DataSet.DisableControls; 
     bm := DataSource.DataSet.GetBookmark; 
     CachedIdentity := DataSource.DataSet.FieldByName('identity').AsString; 
     DataSource.DataSet.GotoBookmark(SelectedRows[0]); 
     CanSelect := DataSource.DataSet.FieldByName('identity').AsString <> CachedIdentity; 
     DataSource.DataSet.GotoBookmark(bm); 
     DataSource.DataSet.FreeBookmark(bm); 
     SelectedRows.CurrentRowSelected := CanSelect; 
     DataSource.DataSet.EnableControls; 
    end; 
    end 
end; 

私はApplication.OnMessage中とのDBGridとフォームのOnMouseDownイベントを試してみましたが、彼らは動作しませんし、何TBookmarkList.BeforeInsertItemイベントはありません。私は何ができますか、または私は変更する必要がありますか？

Answer 1

私はそれが非常に複雑にしないでしょう。
比較が常に最初の選択で行われる場合。
ここで使用するコードにはValueがハードコードされています。
ブックマークにジャンプしません。

// first selection----------------------------- 
if DBGrid1.SelectedRows.Count = 1 then begin 
    CachedIdentity := 'Sonnenbrille'; // Sunglasses 
//CachedIdentity := DataSource.DataSet.FieldByName('identity').AsString; 
    Exit; 
end; 

我々は2を見ることができます

if DBGrid1.SelectedRows.CurrentRowSelected then begin 
//if CachedIdentity <> DataSource.DataSet.FieldByName('identity').AsString 
    if Pos(LookingFor,DBGrid1.DataSource.DataSet.FieldByName('haupttxt').AsString)=0 
    then DBGrid1.SelectedRows.CurrentRowSelected := False; 
    ShowMessage(IntToStr(DBGrid1.SelectedRows.Count)); 
end; 

比較を行いますので
ShowMessage(IntToStr(DBGrid1.SelectedRows.Count));

選択

示しています

今、私たちは）我々はSONNENBRILLE順位を（見つけることができるシンプルな順位（）Sonnenbrilleを知っているラインに

SPORTLICH、ELEGANTE GUCCI SONNENBRILLE

を選択するには、= 0、その選択の意志になります起こらない。

ShowMessage(IntToStr(DBGrid1.SelectedRows.Count));

示しすぎ

CODE：

var 
CachedIdentity : string; 

procedure TForm2.canSelectedV1; 
begin 
    // first selection----------------------------- 
if DBGrid1.SelectedRows.Count = 1 then begin 
    CachedIdentity := 'Sonnenbrille'; // Sunglasses 
//CachedIdentity := DataSource.DataSet.FieldByName('identity').AsString; 
    Exit; 
end; 
if DBGrid1.SelectedRows.CurrentRowSelected then 
begin 
//if CachedIdentity <> DataSource.DataSet.FieldByName('identity').AsString 
    if Pos(LookingFor,DBGrid1.DataSource.DataSet.FieldByName('haupttxt').AsString)=0 
    then DBGrid1.SelectedRows.CurrentRowSelected := False; 
    ShowMessage(IntToStr(DBGrid1.SelectedRows.Count)); 
end; 
end; 

procedure TForm2.DBGrid1MouseUp(Sender: TObject; Button: TMouseButton; 
    Shift: TShiftState; X, Y: Integer); 
begin 
canSelectedV1; 
end; 

procedure TForm2.DBGrid1KeyUp(Sender: TObject; var Key: Word; 
    Shift: TShiftState); 
begin 
canSelectedV1; 
end; 

end. 

Answer 2

TCustomDBGrid.MouseDownのソースを見ると、Mousedownイベントが発生したデータセット行（存在する場合）がどのように動作するかがわかります。あなたのグリッドのOnMouseUpイベントを設定し、念頭に置いて

if ssCtrl in Shift then 
    CurrentRowSelected := not CurrentRowSelected 

を、その中にブレークポイントを置く：あなたはまた、現在の行の選択状態につながるラインがトグルされて表示されます。

グリッドのMouseDownイベントで何が起こるかによって、OnMouseUpイベントが呼び出されるまでに、グリッドのデータセットの現在の行がクリックされたデータローに移動していることがわかります（下記を参照）。その時点で、現在の行がユーザーが選択できるようにする基準を満たしているかどうかをチェックし、そうでない場合は選択を解除することができます。私はあなたの特定の "行が選択されないようにする方法？"

ビヘイビアの選択を解除すると多少気になるので、おそらくユーザーに行が選択解除された理由を示す必要があります。

注：明らかに、グリッドのMousedownがデータセットのMoveByを呼び出すということは、データセットのOnScrollイベントが発生したことを意味します。あなたが何をしたいかによって、OnScrollイベントは、現在のデータローが選択基準を満たしているかどうかをチェックする場所となります。そうでない場合は、そこでの選択解除プロセスを開始します。いずれにしても、DBGrid.MouseDownイベントが呼び出されたデータローにデータセットが既に存在する必要があるという事実は、MouseUpでそれを識別する手間を省くはずです。

あなたが軌道に乗るには十分だろううまくいけば...