como desativar coluna em dbgrid em tempo de execução?
ex: um dbgrid com 4 [b:d07f4ac606]colunas (nome / data / descrição / valor);[/b:d07f4ac606]
Se por um acaso no campo[b:d07f4ac606] descrição[/b:d07f4ac606] o usuario selecionar na picklist do campo descrição ´Pagamento´ a coluna do Campo [b:d07f4ac606]Valor[b] tera que ficar aberta a digitação. caso contrario o item selecionado na picklist nao seja ´pagamento´ ela deve ficar inativa ao usuario.
Se alguem puder me ajudar uso delphi5 e tb paradox, ate ja fiz algo mas nao sei ao certo em qual evento usar nem a propiedade que devo alterar
Grato
Miguel
miguel_apm@terra.com.br
[/b:d07f4ac606]
Se por um acaso no campo[b:d07f4ac606] descrição[/b:d07f4ac606] o usuario selecionar na picklist do campo descrição ´Pagamento´ a coluna do Campo [b:d07f4ac606]Valor[b] tera que ficar aberta a digitação. caso contrario o item selecionado na picklist nao seja ´pagamento´ ela deve ficar inativa ao usuario.
Se alguem puder me ajudar uso delphi5 e tb paradox, ate ja fiz algo mas nao sei ao certo em qual evento usar nem a propiedade que devo alterar
Grato
Miguel
miguel_apm@terra.com.br
[/b:d07f4ac606]
Miguel
Curtidas 0
Respostas
Ricvictor
06/11/2003
Olá Miguel ... tente isso:
No evento OnColEnter, coloque:
if DBGrid1.SelectedIndex = 2 then
if DBGrid1.Columns[2].PickList.Text = ´Pagamento´ then
begin
DBGrid1.Columns[3].Color := clwindow;
DBGrid1.Columns[3].ReadOnly := False;
end
else
begin
DBGrid1.Columns[3].Color := clSilver;
DBGrid1.Columns[3].ReadOnly := True;
end;
Abraço.
No evento OnColEnter, coloque:
if DBGrid1.SelectedIndex = 2 then
if DBGrid1.Columns[2].PickList.Text = ´Pagamento´ then
begin
DBGrid1.Columns[3].Color := clwindow;
DBGrid1.Columns[3].ReadOnly := False;
end
else
begin
DBGrid1.Columns[3].Color := clSilver;
DBGrid1.Columns[3].ReadOnly := True;
end;
Abraço.
GOSTEI 0
Miguel
06/11/2003
Muito Obrigado por sua ajuda hoje a noite testarei sua dica
Abraços
Miguel
Abraços
Miguel
GOSTEI 0