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;
[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
Curtir tópico
+ 0
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);
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
Clique aqui para fazer login e interagir na Comunidade :)