Procedure habilita usar em Forms Modelo que Serviram de Heranças
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
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 .
Dê um upgrade no início da sua jornada.
Crie sua conta grátis e baixe o e-book
Artigos relacionados
-
Artigo
-
Artigo
-
Artigo
-
Artigo
-
Artigo