Fórum Multiselect no DBGRID #413493

Dê uma olhada nesse artigo, pode te ajudar:

https://www.devmedia.com.br/articles/viewcomp.asp?comp=3161

Boa sorte.

Já Resolvi bem mais fácil doque eu imaginei!!Ta ai o código...




procedure TFrmInteressados.btnSimClick(Sender: TObject);
var
rec : string;
contador : integer;
i:String;
begin
if application.MessageBox(Confirma a Alteração de Contato? ,
Confirma... , MB_YESNO + MB_ICONEXCLAMATION ) = IDYES THEN

with DBGrid3 do
begin
if SelectedRows.Count > 0 then
for contador := 0 to Pred(SelectedRows.Count) do
begin
DsAtualizaSituacao.Dataset.Bookmark := SelectedRows[contador];

rec := qryAtualizaSituacao.fieldbyname(COD_INT).AsString;

qryAtualiza.Close;
qryAtualiza.UnPrepare;
qryAtualiza.SQL.Clear;
qryAtualiza.SQL.Add(UPDATE INTXCUR +
SET SITUACAO=S +
WHERE COD_INT=+rec+);

qryAtualiza.Prepare;
qryAtualiza.Open;
end;
I:=inttostr(contador);
Showmessage(Total de Registros alterados +i+ );
qryAtualizaSituacao.close;
qryAtualizaSituacao.Open;

end;

end;