Mudar as imagens dos botoes do form

Delphi

26/10/2005

Galera, estou com a seguinte situação

quando vou cadastrar, excluir ou consultar um registro eu gostaria que abilitasse somente os botoes que poderao ser usuados por exemplo o dbnavigator, conforme a operacao que vc esta executando ele abilita somente os botoes que vc vai poder utilizar.

estou usando o seguinte codigo no evento onStateChange do datasource mas nao esta funcionando bem.

  if qry.Bof then
  begin
//    btnPrimeiro.Enabled := false;
//    btnAnterior.Enabled := false;
    btnPrimeiro.Glyph.LoadFromFile(ExtractFilePath(Application.ExeName)+´imagens\acoes\01_disable.bmp´);
    btnPrimeiro.Glyph.LoadFromFile(ExtractFilePath(Application.ExeName)+´imagens\acoes\02_disable.bmp´);
  end
  else
  begin
//    btnPrimeiro.Enabled := true;
//    btnAnterior.Enabled := true;
    btnPrimeiro.Glyph.LoadFromFile(ExtractFilePath(Application.ExeName)+´imagens\acoes\01_enable.bmp´);
    btnPrimeiro.Glyph.LoadFromFile(ExtractFilePath(Application.ExeName)+´imagens\acoes\02_enable.bmp´);

  end;
  if qry.Eof then
  begin
//    btnUltimo.Enabled := false;
//    btnProximo.Enabled := false;
    btnPrimeiro.Glyph.LoadFromFile(ExtractFilePath(Application.ExeName)+´imagens\acoes\03_disable.bmp´);
    btnPrimeiro.Glyph.LoadFromFile(ExtractFilePath(Application.ExeName)+´imagens\acoes\04_disable.bmp´);
  end
  else
  begin
//    btnUltimo.Enabled := true;
//    btnProximo.Enabled := true;
    btnPrimeiro.Glyph.LoadFromFile(ExtractFilePath(Application.ExeName)+´imagens\acoes\03_enable.bmp´);
    btnPrimeiro.Glyph.LoadFromFile(ExtractFilePath(Application.ExeName)+´imagens\acoes\04_enable.bmp´);
  end;



Zumbi

Zumbi

Curtidas 0

Respostas

Zumbi

Zumbi

26/10/2005

parece brincadeira, mas era uma duvida mui basica :(



procedure TfrmTemplate1.trocaBotoes;
begin
  if qry.Bof then
  begin
//    btnPrimeiro.Enabled := false;
//    btnAnterior.Enabled := false;
    btnPrimeiro.Glyph.LoadFromFile(ExtractFilePath(Application.ExeName)+´imagens\acoes\01_disable.bmp´);
    btnAnterior.Glyph.LoadFromFile(ExtractFilePath(Application.ExeName)+´imagens\acoes\02_disable.bmp´);
  end
  else
  begin
//    btnPrimeiro.Enabled := true;
//    btnAnterior.Enabled := true;
    btnPrimeiro.Glyph.LoadFromFile(ExtractFilePath(Application.ExeName)+´imagens\acoes\01_enable.bmp´);
    btnAnterior.Glyph.LoadFromFile(ExtractFilePath(Application.ExeName)+´imagens\acoes\02_enable.bmp´);

  end;
  if qry.Eof then
  begin
//    btnUltimo.Enabled := false;
//    btnProximo.Enabled := false;
    btnUltimo.Glyph.LoadFromFile(ExtractFilePath(Application.ExeName)+´imagens\acoes\03_disable.bmp´);
    btnProximo.Glyph.LoadFromFile(ExtractFilePath(Application.ExeName)+´imagens\acoes\04_disable.bmp´);
  end
  else
  begin
//    btnUltimo.Enabled := true;
//    btnProximo.Enabled := true;
    btnUltimo.Glyph.LoadFromFile(ExtractFilePath(Application.ExeName)+´imagens\acoes\03_enable.bmp´);
    btnProximo.Glyph.LoadFromFile(ExtractFilePath(Application.ExeName)+´imagens\acoes\04_enable.bmp´);
  end;

end;



Vlw.


GOSTEI 0
POSTAR