DbGrid .. Impedir que se mude de registro

Delphi

21/09/2005

Tenho em um form alguns dbedits e um DbGrid

Qaundo se esta no Modo de edicao , gostaria de desabilitar o DbGrid para que o usário , não alterasse o Regsitro Selecionado

Desabilitar , que eu falo não é coloca-lo como Invisivel , mas sim não permiter que ele mude de registro ao clica-lo na grid ou rolar com a barra Scroll

Pensei que consegueria usando bookMark , e os eventos afterScrol e BeforeScrol , mas fica nun processo recursivo

Se alguem tem alguma idéia desde ja agradeço


Marco Salles

Marco Salles

Curtidas 0

Respostas

Rjun

Rjun

21/09/2005

No evento BeforeScroll use o comando abort.


GOSTEI 0
Marco Salles

Marco Salles

21/09/2005

Beleza.. Sabia que eu estava complicando 

procedure TFormMovimentoCheques.Table1BeforeScroll(DataSet: TDataSet);
begin
bookmark:=Table1.bookmark;
end;


procedure TFormMovimentoCheques.Table1AfterScroll(DataSet: TDataSet);
begin
if edicao Then
begin
  Table1.AfterScroll:=nil;
  Table1.BeforeScroll:=Nil;
  Table1.bookmark:=BookMark;
end;
end;


procedure TFormMovimentoCheques.DBGrid3CellClick(Column: TColumn);
begin
if edicao Then
  begin
    Table1.BeforeScroll:=Table1BeforeScroll;
    Table1.AfterScroll:=Table1AfterScroll;
  end;
end;


Obrigado.. Vou testar mas acho que é 100¬


GOSTEI 0
POSTAR