GARANTIR DESCONTO

Fórum [Pascal Error] uUsuarios.pas(44): E2003 Undeclared identifie #347041

05/10/2007

0

Oi estou com problema no meu sistema quando eu compilo da o seguite erro :
[Pascal Error] uUsuarios.pas(44): E2003 Undeclared identifier: ´Form´ na seguite linha de codigo:Form := FUsuariosManutencao;

o meu codigo neste form esta dessa maneira:
unit uUsuarios;

interface

uses
Windows, Messages,SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uModeloConsulta, Borland.Vcl.ActnList, Borland.Vcl.ImgList,
Borland.Vcl.Grids, Borland.Vcl.DBGrids, Borland.Vcl.ComCtrls,
Borland.Vcl.StdCtrls, Borland.Vcl.ExtCtrls, System.ComponentModel,
Borland.Vcl.ToolWin;

type
TFUsuarios = class(TFModeloConsulta)
Button6: TButton;
ac_permissoes: TAction;
procedure ac_permissoesExecute(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
FUsuarios: TFUsuarios;


implementation

uses uDM, uUsuariosManutencao, uUsuariosPermissoes, uFPrincipal;

{$R *.nfm}

procedure TFUsuarios.ac_permissoesExecute(Sender: TObject);
begin
FUsusariosPermissoes.ShowModal;
end;

procedure TFUsuarios.FormShow(Sender: TObject);
begin
inherited;
Tabela := DM.usuarios;
Grade.DataSource := DM.ds_usuarios;
Form := FUsuariosManutencao;
end;

end.

e eu já criei o fom FUsuariosManutencao :?


Mary

Mary

Responder

Posts

05/10/2007

Jpauloss

Oi estou com problema no meu sistema quando eu compilo da o seguite erro : [Pascal Error] uUsuarios.pas(44): E2003 Undeclared identifier: ´Form´ na seguite linha de codigo:Form := FUsuariosManutencao; o meu codigo neste form esta dessa maneira: unit uUsuarios; interface uses Windows, Messages,SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, uModeloConsulta, Borland.Vcl.ActnList, Borland.Vcl.ImgList, Borland.Vcl.Grids, Borland.Vcl.DBGrids, Borland.Vcl.ComCtrls, Borland.Vcl.StdCtrls, Borland.Vcl.ExtCtrls, System.ComponentModel, Borland.Vcl.ToolWin; type TFUsuarios = class(TFModeloConsulta) Button6: TButton; ac_permissoes: TAction; procedure ac_permissoesExecute(Sender: TObject); procedure FormShow(Sender: TObject); private { Private declarations } public { Public declarations } end; var FUsuarios: TFUsuarios; implementation uses uDM, uUsuariosManutencao, uUsuariosPermissoes, uFPrincipal; {$R *.nfm} procedure TFUsuarios.ac_permissoesExecute(Sender: TObject); begin FUsusariosPermissoes.ShowModal; end; procedure TFUsuarios.FormShow(Sender: TObject); begin inherited; Tabela := DM.usuarios; Grade.DataSource := DM.ds_usuarios; Form := FUsuariosManutencao; end; end. e eu já criei o fom FUsuariosManutencao :?


Não seria TForm? Tenta aí estou sem delphi aqui.


Responder

Gostei + 0

05/10/2007

Mary

oi coloquei como TForm e o erro continua


Responder

Gostei + 0

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

Aceitar