Fórum Abstract error! #288484
18/07/2005
0
ele acontece no Oncreate do Form (MDI Child)
procedure TPrincipal.Livrosnoentregues1Click(Sender: TObject); begin if RelatMaterial_nao_entregue = nil then RelatMaterial_nao_entregue := TRelatMaterial_nao_entregue ( Application ); RelatMaterial_nao_entregue.Show; end;
Mahdak
Curtir tópico
+ 0Posts
18/07/2005
Massuda
Quanto ao erro, provavelmente o construtor, o OnCreate ou o OnShow do form TRelatMaterial_nao_entregue tem alguma chamada a um método abtrato não sobrescrito. Poste o código aqui se precisar de mais ajuda.
Gostei + 0
18/07/2005
Mahdak
Quanto ao erro, provavelmente o construtor, o OnCreate ou o OnShow do form TRelatMaterial_nao_entregue tem alguma chamada a um método abtrato não sobrescrito. Poste o código aqui se precisar de mais ajuda.[/quote:6a32ae2f28]
Amigo, quanto a questão do Tform / Tapplication, isso nunca me causou problemas por aqui. Um exemplo, nesse sistema mesmo todas as linhas que chamam os Forms (MDI Child) são escritas desse modo.
ja quanto os eventos OnCreate ou o OnShow do form TRelatMaterial_nao_entregue, eles estão vazios, ou seja, nao escrvi nda neles. o unico evento que está escrito é o OnClose...
será que nao eh o fato de o form TRelatMaterial_nao_entregue estar com o QuickReport? acho que nao neh...
procedure TRelatMaterial_nao_entregue.FormClose(Sender: TObject; var Action: TCloseAction); begin RelatMaterial_nao_entregue := nil; Action := caFree; end;
Gostei + 0
18/07/2005
Massuda
var Form: TForm; begin Form := TForm(Application); Form.Show; ...
var Form: TForm; begin Form := Application as TForm; Form.Show; ...
Fora isso, não tenho mais nenhuma idéia do que possa ser.
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)