Fórum invalid property value #333617
24/11/2006
0
Ola pessoal sou novo no Grupo e novo no Delphi tambem, estou estudando por conta , atraves de tutoriais e livros. e estou com um probleminha aqui que não achei solução.
tenho varios formularios, no primeiro form eu criei varios buttons, adicionei as linhas de comando para cada um deles.
Depois peguei e copiei eles para os outros formularios. acontece que quando coloco as linhas de codigos para esses botoes nos outros formularios ela me da o seguinte erro
project venda.exe raised exception class EReadError with message ´ invalid property value´ process stopped, use step or run to continue.
depois disso vou nesse novo botão e excluo o comando ai volta a funcionar
resumindo se eu colocar um comando em qualquer button que não seja o primeiro ele da erro.
fico no aguardo
obrigado
tenho varios formularios, no primeiro form eu criei varios buttons, adicionei as linhas de comando para cada um deles.
Depois peguei e copiei eles para os outros formularios. acontece que quando coloco as linhas de codigos para esses botoes nos outros formularios ela me da o seguinte erro
project venda.exe raised exception class EReadError with message ´ invalid property value´ process stopped, use step or run to continue.
depois disso vou nesse novo botão e excluo o comando ai volta a funcionar
resumindo se eu colocar um comando em qualquer button que não seja o primeiro ele da erro.
fico no aguardo
obrigado
Franciscofabion
Curtir tópico
+ 0
Responder
Posts
24/11/2006
Massuda
... Depois peguei e copiei eles para os outros formularios. acontece que quando coloco as linhas de codigos para esses botoes nos outros formularios ela me da o seguinte erro...
Não entendi direito... seria interessante você detalhar mais o que foi feito bem como mostrar o seu código.
Responder
Gostei + 0
24/11/2006
Franciscofabion
tenho varios formularios, frmCadcliente, frmCadFornecedor
no cadcliente coloquei buttons, btnfechar, btnproximo, btnLocalizar.
e para cada botão coloquei seus comandos, e compilei rodou blz e funcionou certinho.
no cadfornecedor colei os botoes que ja havia criado no cadcliente. e coloquei os comandos para cada botão, mas na hora que mando compilar ele da o erro que mencionei no outro post. entao volto la no cadfornecedor, tiro as linhas de comando e entao ele funciona
unit uCadCliente;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, DBCtrls, Buttons;
type
TfrmCadastroCliente = class(TForm)
Label1: TLabel;
DBEdit1: TDBEdit;
Label2: TLabel;
DBEdit2: TDBEdit;
Label3: TLabel;
DBEdit3: TDBEdit;
Label4: TLabel;
DBEdit4: TDBEdit;
btnPrimeiro: TBitBtn;
btnAnterior: TBitBtn;
btnProximo: TBitBtn;
btnUltimo: TBitBtn;
btnIncluir: TBitBtn;
btnExcluir: TBitBtn;
btnAltera: TBitBtn;
btnGrava: TBitBtn;
btnCancela: TBitBtn;
btnPesquisar: TBitBtn;
btnSair: TBitBtn;
procedure btnPrimeiroClick(Sender: TObject);
procedure btnAnteriorClick(Sender: TObject);
procedure btnProximoClick(Sender: TObject);
procedure btnUltimoClick(Sender: TObject);
procedure btnIncluirClick(Sender: TObject);
procedure btnExcluirClick(Sender: TObject);
procedure btnAlteraClick(Sender: TObject);
procedure btnGravaClick(Sender: TObject);
procedure btnCancelaClick(Sender: TObject);
procedure btnSairClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmCadastroCliente: TfrmCadastroCliente;
implementation
uses uDM;
{$R *.dfm}
procedure TfrmCadastroCliente.btnPrimeiroClick(Sender: TObject);
begin
dm.tblCliente.First;
end;
procedure TfrmCadastroCliente.btnAnteriorClick(Sender: TObject);
begin
dm.tblCliente.Prior;
end;
procedure TfrmCadastroCliente.btnProximoClick(Sender: TObject);
begin
dm.tblCliente.Next;
end;
procedure TfrmCadastroCliente.btnUltimoClick(Sender: TObject);
begin
dm.tblCliente.Last;
end;
procedure TfrmCadastroCliente.btnIncluirClick(Sender: TObject);
begin
dm.tblCliente.Append;
btnPrimeiro.Enabled :=false;
btnProximo.Enabled :=false;
btnAnterior.Enabled :=false;
btnUltimo.Enabled :=false;
btnIncluir.Enabled :=false;
btnAltera.Enabled :=false;
btnExcluir.Enabled :=false;
btnGrava.Enabled :=True;
btnCancela.Enabled :=True;
end;
procedure TfrmCadastroCliente.btnExcluirClick(Sender: TObject);
begin
dm.tblCliente.Delete;
end;
procedure TfrmCadastroCliente.btnAlteraClick(Sender: TObject);
begin
dm.tblCliente.Edit;
btnPrimeiro.Enabled :=false;
btnProximo.Enabled :=false;
btnAnterior.Enabled :=false;
btnUltimo.Enabled :=false;
btnIncluir.Enabled :=false;
btnAltera.Enabled :=false;
btnExcluir.Enabled :=false;
btnGrava.Enabled :=True;
btnCancela.Enabled :=True;
end;
procedure TfrmCadastroCliente.btnGravaClick(Sender: TObject);
begin
dm.tblCliente.Post;
dm.tblCliente.UpdateBatch();
btnPrimeiro.Enabled :=True;
btnProximo.Enabled :=True;
btnAnterior.Enabled :=True;
btnUltimo.Enabled :=True;
btnIncluir.Enabled :=True;
btnAltera.Enabled :=True;
btnExcluir.Enabled :=True;
btnGrava.Enabled :=False;
btnCancela.Enabled :=False;
end;
procedure TfrmCadastroCliente.btnCancelaClick(Sender: TObject);
begin
dm.tblCliente.Cancel;
btnPrimeiro.Enabled :=True;
btnProximo.Enabled :=True;
btnAnterior.Enabled :=True;
btnUltimo.Enabled :=True;
btnIncluir.Enabled :=True;
btnAltera.Enabled :=True;
btnExcluir.Enabled :=True;
btnGrava.Enabled :=False;
btnCancela.Enabled :=False;
end;
procedure TfrmCadastroCliente.btnSairClick(Sender: TObject);
begin
close;
end;
end.
unit ucadfornecedor;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, DBCtrls, Buttons;
type
TfrmCadFornecedor = class(TForm)
Label1: TLabel;
DBEdit1: TDBEdit;
Label2: TLabel;
DBEdit2: TDBEdit;
Label3: TLabel;
DBEdit3: TDBEdit;
BitBtn1: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmCadFornecedor: TfrmCadFornecedor;
implementation
uses uDM;
{$R *.dfm}
procedure TfrmCadFornecedor.BitBtn1Click(Sender: TObject);
begin
close;
end;
observe que no cadfornecedor eu coloquei apenas o button fechar e ja apresenta o erro.
no cadcliente coloquei buttons, btnfechar, btnproximo, btnLocalizar.
e para cada botão coloquei seus comandos, e compilei rodou blz e funcionou certinho.
no cadfornecedor colei os botoes que ja havia criado no cadcliente. e coloquei os comandos para cada botão, mas na hora que mando compilar ele da o erro que mencionei no outro post. entao volto la no cadfornecedor, tiro as linhas de comando e entao ele funciona
unit uCadCliente;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, DBCtrls, Buttons;
type
TfrmCadastroCliente = class(TForm)
Label1: TLabel;
DBEdit1: TDBEdit;
Label2: TLabel;
DBEdit2: TDBEdit;
Label3: TLabel;
DBEdit3: TDBEdit;
Label4: TLabel;
DBEdit4: TDBEdit;
btnPrimeiro: TBitBtn;
btnAnterior: TBitBtn;
btnProximo: TBitBtn;
btnUltimo: TBitBtn;
btnIncluir: TBitBtn;
btnExcluir: TBitBtn;
btnAltera: TBitBtn;
btnGrava: TBitBtn;
btnCancela: TBitBtn;
btnPesquisar: TBitBtn;
btnSair: TBitBtn;
procedure btnPrimeiroClick(Sender: TObject);
procedure btnAnteriorClick(Sender: TObject);
procedure btnProximoClick(Sender: TObject);
procedure btnUltimoClick(Sender: TObject);
procedure btnIncluirClick(Sender: TObject);
procedure btnExcluirClick(Sender: TObject);
procedure btnAlteraClick(Sender: TObject);
procedure btnGravaClick(Sender: TObject);
procedure btnCancelaClick(Sender: TObject);
procedure btnSairClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmCadastroCliente: TfrmCadastroCliente;
implementation
uses uDM;
{$R *.dfm}
procedure TfrmCadastroCliente.btnPrimeiroClick(Sender: TObject);
begin
dm.tblCliente.First;
end;
procedure TfrmCadastroCliente.btnAnteriorClick(Sender: TObject);
begin
dm.tblCliente.Prior;
end;
procedure TfrmCadastroCliente.btnProximoClick(Sender: TObject);
begin
dm.tblCliente.Next;
end;
procedure TfrmCadastroCliente.btnUltimoClick(Sender: TObject);
begin
dm.tblCliente.Last;
end;
procedure TfrmCadastroCliente.btnIncluirClick(Sender: TObject);
begin
dm.tblCliente.Append;
btnPrimeiro.Enabled :=false;
btnProximo.Enabled :=false;
btnAnterior.Enabled :=false;
btnUltimo.Enabled :=false;
btnIncluir.Enabled :=false;
btnAltera.Enabled :=false;
btnExcluir.Enabled :=false;
btnGrava.Enabled :=True;
btnCancela.Enabled :=True;
end;
procedure TfrmCadastroCliente.btnExcluirClick(Sender: TObject);
begin
dm.tblCliente.Delete;
end;
procedure TfrmCadastroCliente.btnAlteraClick(Sender: TObject);
begin
dm.tblCliente.Edit;
btnPrimeiro.Enabled :=false;
btnProximo.Enabled :=false;
btnAnterior.Enabled :=false;
btnUltimo.Enabled :=false;
btnIncluir.Enabled :=false;
btnAltera.Enabled :=false;
btnExcluir.Enabled :=false;
btnGrava.Enabled :=True;
btnCancela.Enabled :=True;
end;
procedure TfrmCadastroCliente.btnGravaClick(Sender: TObject);
begin
dm.tblCliente.Post;
dm.tblCliente.UpdateBatch();
btnPrimeiro.Enabled :=True;
btnProximo.Enabled :=True;
btnAnterior.Enabled :=True;
btnUltimo.Enabled :=True;
btnIncluir.Enabled :=True;
btnAltera.Enabled :=True;
btnExcluir.Enabled :=True;
btnGrava.Enabled :=False;
btnCancela.Enabled :=False;
end;
procedure TfrmCadastroCliente.btnCancelaClick(Sender: TObject);
begin
dm.tblCliente.Cancel;
btnPrimeiro.Enabled :=True;
btnProximo.Enabled :=True;
btnAnterior.Enabled :=True;
btnUltimo.Enabled :=True;
btnIncluir.Enabled :=True;
btnAltera.Enabled :=True;
btnExcluir.Enabled :=True;
btnGrava.Enabled :=False;
btnCancela.Enabled :=False;
end;
procedure TfrmCadastroCliente.btnSairClick(Sender: TObject);
begin
close;
end;
end.
unit ucadfornecedor;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, DBCtrls, Buttons;
type
TfrmCadFornecedor = class(TForm)
Label1: TLabel;
DBEdit1: TDBEdit;
Label2: TLabel;
DBEdit2: TDBEdit;
Label3: TLabel;
DBEdit3: TDBEdit;
BitBtn1: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmCadFornecedor: TfrmCadFornecedor;
implementation
uses uDM;
{$R *.dfm}
procedure TfrmCadFornecedor.BitBtn1Click(Sender: TObject);
begin
close;
end;
observe que no cadfornecedor eu coloquei apenas o button fechar e ja apresenta o erro.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)