Paulao
18-10-2010, 14:41:39
Hizo un frame con estes codigos:
...
private
{ Private declarations }
estado_tabela: Char;
procedure liga_botoes;
public
{ Public declarations }
end;
implementation
uses uConstantes;
{$R *.dfm}
{ TfrInserir }
procedure TfrInserir.liga_botoes;
begin
btnNovo.Enabled := not btnNovo.Enabled;
btnGravar.Enabled := not btnGravar.Enabled;
btnCancelar.Enabled := not btnCancelar.Enabled;
btnPesquisar.Enabled := not btnPesquisar.Enabled;
btnImprimir.Enabled := not btnImprimir.Enabled;
end;
procedure TfrInserir.btnNovoClick(Sender: TObject);
begin
if dscPadrao.DataSet.Active then
begin
liga_botoes;
estado_tabela := 'I';
dscPadrao.DataSet.Append;
end
else
MessageDlg(MSG_TABELA_FECHADA, mtInformation, [mbOk],0);
end;
end.
Quando premo el btnNovo, lo procedure liga_botoes no funciona, o sea, nada acontece. Que pasa en este codigo? Parece que estas bien, si erro.
...
private
{ Private declarations }
estado_tabela: Char;
procedure liga_botoes;
public
{ Public declarations }
end;
implementation
uses uConstantes;
{$R *.dfm}
{ TfrInserir }
procedure TfrInserir.liga_botoes;
begin
btnNovo.Enabled := not btnNovo.Enabled;
btnGravar.Enabled := not btnGravar.Enabled;
btnCancelar.Enabled := not btnCancelar.Enabled;
btnPesquisar.Enabled := not btnPesquisar.Enabled;
btnImprimir.Enabled := not btnImprimir.Enabled;
end;
procedure TfrInserir.btnNovoClick(Sender: TObject);
begin
if dscPadrao.DataSet.Active then
begin
liga_botoes;
estado_tabela := 'I';
dscPadrao.DataSet.Append;
end
else
MessageDlg(MSG_TABELA_FECHADA, mtInformation, [mbOk],0);
end;
end.
Quando premo el btnNovo, lo procedure liga_botoes no funciona, o sea, nada acontece. Que pasa en este codigo? Parece que estas bien, si erro.