Mudar as imagens dos botoes do form

Question

Galera, estou com a seguinte situa��oquando vou cadastrar, excluir ou consultar um registro eu gostaria que abilitasse somente os botoes que poderao ser usuados por exemplo o dbnavigator, conforme a o...

Zumbi · Answer

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.

F�rum Mudar as imagens dos botoes do form #300837