Procedure habilita usar em Forms Modelo que Serviram de Heranças

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (1)  (1)

Com essa Procedure você poderia deixar funções definidas nos botões de uma form , que você poderá criar enrança dela , e tudo que você configurar nessa form ja sera levada para Form que Você Crio com erança . Nessa Form Usarei exemplo com os s

Começe declarando a Procedure Habilita  como Public .
E Coloque um MyQuery na Form

  public
    { Public declarations }
    Procedure Habilita (Hab :Boolean);
  end;


procedure TModelo_cadastro.Habilita(Hab: Boolean);
var
   i : String ;
begin
  Novo.Enabled := hab ;
  Confirma.Enabled := not hab ;
  Altera.Enabled :=  hab ;
  Cancela.Enabled := not hab;
  Excluir.Enabled := hab;
  Localiza.Enabled := hab;
  Sair.Enabled := hab;
end;

// Agora dentro dos botões basta por os seguintes códigos..

procedure TModelo_cadastro.NovoClick(Sender: TObject); // Configurando o Botão Novo
begin
  habilita(false);
  MyQuery1.Insert;
end;

procedure TModelo_cadastro.ConfirmaClick(Sender: TObject); // Configurando o Botão Confirmar
begin
  habilita(true);
  MyQuery1.post;
  desabilitadbedit;
end;

procedure TModelo_cadastro.AlteraClick(Sender: TObject); // Configurando o Botão Alterar
begin
  habilita(false);
  MyQuery1.edit;
  habilitAdbedit;
end;

procedure TModelo_cadastro.CancelaClick(Sender: TObject); // Configurando o Botão Cancelar
 begin
  habilita(true);
  MyQuery1.cancel;
  desabilitadbedit;
end;

procedure TModelo_cadastro.ExcluirClick(Sender: TObject); // Configurando o Botão Excluir
begin
  if MyQuery1.IsEmpty then
      raise exception.create('Nao exitem registros para serem excluidos!');
   if application.messagebox('Deseja Realmente excluir?','confirmação',MB_Iconquestion+MB_yesno)=ID_yes then
   begin
      try
         MyQuery1.delete;
      except
         raise exception.Create('Não pode ser excluído!');
      end;
   end;
end;

procedure TModelo_cadastro.SairClick(Sender: TObject); // Configurando o botão sair
begin
  if application.messagebox('Deseja Realmente Sair?','confirmação',MB_Iconquestion+MB_yesno)=ID_yes then
    close;
end

Caso duvidas sobre como criar erança dessa Form , deixe pedindo que faço um post de como criar .
















 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?