Sobre propriedade Row do DBGrid...

Delphi

01/08/2005

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])... :?:


Bruno Belchior

Bruno Belchior

Curtidas 0

Respostas

Marco Salles

Marco Salles

01/08/2005

Não testei , porque nao deu tempo

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

end;



GOSTEI 0
Marco Salles

Marco Salles

01/08/2005

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;



GOSTEI 0
Marco Salles

Marco Salles

01/08/2005

Com eu disse eu não testei


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...


GOSTEI 0
POSTAR