GARANTIR DESCONTO

Fórum Criando uma Classe #276967

13/04/2005

0

Eu estou trabalhando com uma Unit normalmente, porém eu necessitei de criar uma outra classe dentro desta. A classe herda de TForm, compila beleza, porém no momento de criar esta classe no constructor, na linha

[b:897d62de22]inherited Create(AOwner);[/b:897d62de22]

me retorna o seguinte erro :
Resource TfrmResposta nor found. O que pode ser isso, não consegui achar de maneira alguma.

======== código ============
constructor TfrmResposta.Create(AOwner: TComponent);
begin
try
inherited Create(AOwner);
Self.Caption := ´Resposta´;
Self.Height := 169;
Self.Width := 329;
Self.BorderStyle := bsSizeToolWin;
Self.Position := poDesktopCenter;

pnlBotoes := TPanel.Create(Self);
pnlBotoes.Parent := Self;
pnlBotoes.Align := alBottom;
pnlBotoes.Height := 41;

pnlMemo := TPanel.Create(Self);
pnlMemo.Parent := Self;
pnlMemo.Align := alClient;

memReposta := TMemo.Create(Self);
memReposta.Parent := pnlMemo;
memReposta.Lines.Clear;
memReposta.ScrollBars := ssVertical;

btnOk := TBitBtn.Create(Self);
btnOk.Parent := pnlBotoes;
btnOk.Width := 100;
btnOk.Left := pnlBotoes.Width - (btnOk.Width + 15);
btnOk.ModalResult := mrOk;
btnOk.Kind := bkOK;
btnOk.Caption := ´Ok´;
btnOk.OnClick := btnOk_Click;

btnCancelar := TBitBtn.Create(Self);
btnCancelar.Parent := pnlBotoes;
btnCancelar.Width := 100;
btnCancelar.Left := (btnOk.Left + 5) + btnCancelar.Width;
btnCancelar.ModalResult := mrCancel;
btnCancelar.Kind := bkCancel;
btnCancelar.Caption := ´Cancelar´;
btnCancelar.OnClick := btnCancelar_Click;
except
on E : Exception do
begin
AppAcad.QMessageDlg(PChar(´Ocorreu o seguinte erro : ´ + E.Message), mtInformation, [mbok]);
end;
end;
end;


Fabio Colli

Fabio Colli

Responder

Posts

13/04/2005

Massuda

...A classe herda de TForm, compila beleza, porém no momento de criar esta classe no constructor, na linha [b:8612b0feba]inherited Create(AOwner);[/b:8612b0feba] me retorna o seguinte erro : Resource TfrmResposta nor found. O que pode ser isso, não consegui achar de maneira alguma.
No processo de criação do form o Delphi espera que o form tenha um resource gerado a partir do arquivo DFM relacionado com o form; se você tiver esse arquivo, inclua o seguinte na seção [b:8612b0feba]implementation[/b:8612b0feba] da sua unit:
{$R *.DFM}

// ou indique o nome do arquivo

{$R nome_do_arquivo.DFM}

Se você optou por montar todo o conteúdo da janela manualmente via código (que parece ser o caso), mude (não testei)
constructor TfrmResposta.Create(AOwner: TComponent); 
begin 
  inherited Create(AOwner);
para
constructor TfrmResposta.Create(AOwner: TComponent); 
begin 
  inherited CreateNew(AOwner);



Responder

Gostei + 0

13/04/2005

Fabio Colli

Valeu deu certo com o CreateNew. Obrigado.


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar