Dbgrid

Question

Ol�!!!!Tenho um Dbgrid em uma aplica��o cuja finalidade � de consulta e caso precise ele permite editar somente um campo. Portanto, se eu estiver na �ltima linha e apertar a seta para baixo ele abre u...

Marco Salles · Answer

Dentre outros c�digos que possa vir , aqui esta um

var
 Inserir:Boolean=False;

procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case Key of
    Vk_Down,
    Vk_Tab
      :inserir:=true;
  end;
end;

procedure TForm1.Query1NewRecord(DataSet: TDataSet);
begin
if inserir Then
  query1.Cancel;
Inserir:=False;
end;

Hellsing · Answer

Tem tamb�m uma maneira simples:> Escolha o componente que est� conectado � tabela (ClientDataset, Table, IBXTable, Query, o que quer que seja).> Na guia �Events� do Object Inspector, escolha �BeforeInsert�:> Digite o c�digo:[code:1:cd87cfe1ec]procedure TDataModule.Table1BeforeInsert(Dataset: TDataset);begin   ABORT;end;[/code:1:cd87cfe1ec]Falowz...[b:cd87cfe1ec]Hellsing[/b:cd87cfe1ec]...

Marco Salles · Answer

[quote:40b40c9ff6]Tem tamb�m uma maneira simples: > Escolha o componente que est� conectado � tabela (ClientDataset, Table, IBXTable, Query, o que quer que seja). > Na guia �Events� do Object Inspector, escolha �BeforeInsert�: > Digite o c�digo: C�digo: procedure TDataModule.Table1BeforeInsert(Dataset: TDataset); begin    ABORT; end; [/quote:40b40c9ff6] [b:40b40c9ff6]mas isto ir� impedir toda e qualquer inser��o .....[/b:40b40c9ff6]e o caso dele � espec�fico[b:40b40c9ff6]se eu estiver na �ltima linha e apertar a seta para baixo ...bloqueio para que n�o abrir linhas no Dbgrid.[/b:40b40c9ff6]...

F�rum Dbgrid #290972