inherited
Alguém pode me dizer que comando é esse e para que serve?
inherited;
:shock:
inherited;
:shock:
Demetrius
Curtidas 0
Respostas
Demetrius
10/08/2005
Vou exemplificar.
Recebi a Clube delphi desse mês e existe a seguinte codificação no botão de consultar:
procedure TFrmCadCliFor.btnConsultarClick(Sender: TObject);
begin
[b:3f0e24ab65][color=red:3f0e24ab65] inherited;[/color:3f0e24ab65][/b:3f0e24ab65]
with cdsConsultar do
begin
Close;
CommandText := ´select CF_CODIGO, CF_TIPO, CF_JURIDICA, CF_NOME, CF_CONTATO, CF_CPFCNPJ, ´ +
´CF_RGINSCEST, CF_ENDERECO, CF_BAIRRO, CF_COMPLEMENTO, CF_CEP, CID_CODIGO, ´ +
´CF_FONE, CF_FAX, CF_EMAIL, CF_SITE, CF_ATIVO from GER_CLIFOR´;
case rgConsultar.ItemIndex of
0: CommandText := CommandText + ´ where CF_CODIGO = ´ + edtConsultar.Text;
1: CommandText := CommandText + ´ where UPPER(CF_NOME) like ´ + QuotedStr(AnsiUpperCase(edtConsultar.Text) + ´¬´);
end;
CommandText := CommandText + ´ and CF_APAGADO <> ´ + QuotedStr(´S´) + ´ order by CF_NOME´;
Open;
if IsEmpty then
begin
MessageDlg(´Nenhum registro encontrado!´ + #13 + ´Refaça a pesquisa´, mtInformation, [mbOk], 0);
if edtConsultar.CanFocus then
edtConsultar.SetFocus;
end;
end;
end;
Aguém sabe para que serve o comando em vermelho.
Recebi a Clube delphi desse mês e existe a seguinte codificação no botão de consultar:
procedure TFrmCadCliFor.btnConsultarClick(Sender: TObject);
begin
[b:3f0e24ab65][color=red:3f0e24ab65] inherited;[/color:3f0e24ab65][/b:3f0e24ab65]
with cdsConsultar do
begin
Close;
CommandText := ´select CF_CODIGO, CF_TIPO, CF_JURIDICA, CF_NOME, CF_CONTATO, CF_CPFCNPJ, ´ +
´CF_RGINSCEST, CF_ENDERECO, CF_BAIRRO, CF_COMPLEMENTO, CF_CEP, CID_CODIGO, ´ +
´CF_FONE, CF_FAX, CF_EMAIL, CF_SITE, CF_ATIVO from GER_CLIFOR´;
case rgConsultar.ItemIndex of
0: CommandText := CommandText + ´ where CF_CODIGO = ´ + edtConsultar.Text;
1: CommandText := CommandText + ´ where UPPER(CF_NOME) like ´ + QuotedStr(AnsiUpperCase(edtConsultar.Text) + ´¬´);
end;
CommandText := CommandText + ´ and CF_APAGADO <> ´ + QuotedStr(´S´) + ´ order by CF_NOME´;
Open;
if IsEmpty then
begin
MessageDlg(´Nenhum registro encontrado!´ + #13 + ´Refaça a pesquisa´, mtInformation, [mbOk], 0);
if edtConsultar.CanFocus then
edtConsultar.SetFocus;
end;
end;
end;
Aguém sabe para que serve o comando em vermelho.
GOSTEI 0
Elter.teodoro
10/08/2005
para informar que a classe e descendente de outra , isto serve para componente ou formulario.
GOSTEI 0
Demetrius
10/08/2005
Preciso estudar mais :lol: :lol:
Valeu!!!
Valeu!!!
GOSTEI 0
Kotho
10/08/2005
Bom... não é somente para informar... no seu caso, esse botão deve estar definido no form, que eu vou chamar de padrão, e não no form em que o código está sendo visto, que foi hedado do padrão...
Este botão deve ter um código pré-definido no form padrão... (se não for assim, vamos supor que fosse, para facilitar o entendimento)
o Inherited informa o momento em que será passada a execução para o form padrão... então você pode colocar código para ser executado antes, e depois disso...
Este botão deve ter um código pré-definido no form padrão... (se não for assim, vamos supor que fosse, para facilitar o entendimento)
o Inherited informa o momento em que será passada a execução para o form padrão... então você pode colocar código para ser executado antes, e depois disso...
GOSTEI 0
Raserafim
10/08/2005
explicando um pouco mais e mais fácil.
o inherited é um comando que vai executar o código do procedimento do objeto pai.
neste caso aconteceu o seguinte. este form que tem estes códigos é herdado de algum outro form que tem um procedimento com este mesmo nome. então o que o inherited vai fazer é executar o código do form pai, e depois continua executando o código restante.
o inherited é um comando que vai executar o código do procedimento do objeto pai.
neste caso aconteceu o seguinte. este form que tem estes códigos é herdado de algum outro form que tem um procedimento com este mesmo nome. então o que o inherited vai fazer é executar o código do form pai, e depois continua executando o código restante.
GOSTEI 0