Abstract error

[wilsoncrescencio 1]

Alguém sabe me dizer porque quando fechor os forms fsMDChild, aparece essa mensagem de erro?

 

Abstract error:!:

[marcio.theis 3]

O erro sempre aparece ? Ou é aleatório ?

[wilsoncrescencio 1]

Opa... o erro é esporádico... aleatório

[marcio.theis 3]

Perfeito seria conseguir rodar passo-a-passo e pegar o erro em momento de debug, para assim saber bem certo onde é o problema, se não me engano esse erro é de quando herdamos uma classe que possui algum método abstrato e que estes métodos não foram implementamos na classe "filha", e quando for fechar o form, pode tentar usar o Action:=Cafree; e Form1:=nil;

[wilsoncrescencio 1]

Perfeito seria conseguir rodar passo-a-passo e pegar o erro em momento de debug, para assim saber bem certo onde é o problema...

Vou fazer isso.. vou rodar o sistema e depois eu posto

[wilsoncrescencio 1]

Opa Márcio...

O erro acontece quando fecho esse formulário :

unit U_Cad_aluno;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, Mask, DBCtrls, DB, ZAbstractRODataset,
  ZDataset, ZAbstractDataset, ZAbstractTable, ExtCtrls;

type
  TF_Cad_Alunos = class(TForm)
	Label1: TLabel;
	Label2: TLabel;
	sirium: TButton;
	cadastrum: TButton;
	editum: TButton;
	GroupBox1: TGroupBox;
	Edit1: TEdit;
	buxcarium: TButton;
	DBEdit1: TDBEdit;
	DBEdit2: TDBEdit;
	DBEdit3: TDBEdit;
	DBGrid1: TDBGrid;
	procedure cadastrumClick(Sender: TObject);
	procedure editumClick(Sender: TObject);
	procedure siriumClick(Sender: TObject);
	procedure FormCreate(Sender: TObject);
	procedure buxcariumClick(Sender: TObject);
  private
	{ Private declarations }
  public
	{ Public declarations }
  end;

var
  F_Cad_Alunos: TF_Cad_Alunos;

implementation

uses Udm1;

{$R *.dfm}

procedure TF_Cad_Alunos.cadastrumClick(Sender: TObject);
begin
dm1.ZT_aluno.Edit;
dm1.ZT_aluno.Insert;
dm1.ZRQ_aluno.Close;
dm1.ZRQ_aluno.active:=true;
end;

procedure TF_Cad_Alunos.editumClick(Sender: TObject);
begin
dm1.ZT_aluno.Edit;
end;

procedure TF_Cad_Alunos.siriumClick(Sender: TObject);
begin
Destroy;
end;

procedure TF_Cad_Alunos.FormCreate(Sender: TObject);
begin
dm1.ZT_aluno.open;
dm1.ZT_aluno.Append;
dm1.ZRQ_aluno.Active:=true;
end;

procedure TF_Cad_Alunos.buxcariumClick(Sender: TObject);
begin
if not dm1.ZT_aluno.Locate('nome',Edit1.Text,[loCaseInsensitive, loPartialKey]) then
	   ShowMessage('Nome de aluno não encontrado!');
	DBEdit1.SetFocus;
	dm1.ZRQ_aluno.Active:=false;
	dm1.ZRQ_aluno.Active:=true;

end;

end.