Sobre propriedade Row do DBGrid...

Question

Pessoal h� alguma maneira de saber se a atual linha do Grid ([b:6011645364]Row[/b:6011645364]) est� contida nas linhas selecionadas ([b:6011645364]SelectedRows[/b:6011645364])... :?:...

Marco Salles · Answer

N�o testei , porque nao deu tempo[code:1:e59606c9ab]procedure TForm1.Button1Click(Sender: TObject);var i:Integer; BookMark:TBookMarkStr; BookMarkList:TBookMarkList; pertence:Boolean;beginpertence:=False;BookMarkList:=DbGrid1.SelectedRows;BookMark:=Table1.BookMark;For i:=0 to DbGrid1.SelectedRows.Count-1 do  begin    if  BookMark = BookMarkList&#91;i&93; then      begin        pertence:=True;        Break;      end;  end;if pertence Then showmessage(�SIM�)else Showmessage(�N�O�);end;[/code:1:e59606c9ab]...

Marco Salles · Answer

Com eu disse eu n�o testei , mas so completando o c�digo anterior:

procedure TForm1.Button1Click(Sender: TObject); 
var 
 i:Integer; 
 BookMark:TBookMarkStr; 
 BookMarkList:TBookMarkList; 
 pertence:Boolean; 
begin 
pertence:=False; 
BookMarkList:=DbGrid1.SelectedRows; 
BookMark:=Table1.BookMark; 
Table1.Disablecontrol;
For i:=0 to DbGrid1.SelectedRows.Count-1 do 
  begin 
    if  BookMark = BookMarkList[i] then 
      begin 
        pertence:=True; 
        Break; 
      end; 
  end; 
Table1.BookMark:=BookMark;
Table1.EnableControls;
if pertence Then 
 showmessage(�SIM�) 
else 
 Showmessage(�N�O�); 

end;

Marco Salles · Answer

[quote:5875fa1b9b]Com eu disse eu n�o testei [/quote:5875fa1b9b]Acabei de testar , e a primeira postagem se comportou melhor do que a segunda :lol:  :lol:  :lol: eu n�o sei a finalidade que voce quer isto , mas se for para desenhar na celula usando o evento OnDrawCollun � mais indicado usar a propriedade DgSelected......

F�rum Sobre propriedade Row do DBGrid... #290223