Fórum bom galera resolvi um problema e arranjei dois kkk #431203

18/12/2012

0

Delphi

bom é o seguinte quando entro na aplicação coloquei o combobox para chamar endereço, bairro, cidade, quando chamo algum cadastro tipo cidade de dentro com cliente por meio de um button ele sobe o form de cliente para cima e quando saio do cadastro de cidade ele nao deixa eu acessar a tabela no combobox é mole...
existe alguem de plantão ai pra ajudar, joaocarlosvieiradossantos@hotmail.com


obs: estou chamando assim

procedure TFrm_clientes.BT_1Click(Sender: TObject);
VAR LOGRADOURO:TFrm_Logradouro;
begin
Logradouro:=TFrm_Logradouro.Create(SELF);
Logradouro.ShowModal;
end;

e to usando nos form na opção align o albuttom ok podem me ajudar agradeço
Joao Vieiradossantos

Joao Vieiradossantos

Responder

Posts

18/12/2012

Rodolpho Silva

Rapaz, sinceridade?

Não entendi nada do que você relatou. Descreve melhor o seu problema e poste o código usado.
Responder

Gostei + 0

18/12/2012

William

Colega, como o Rodolpho123 mencionou está meio difícil de entender sua dúvida, parece que tem alguma coisa haver com
acessar o componente no form depois que outro form foi fechado!

Por favor detalhe um pouco mais!
Responder

Gostei + 0

18/12/2012

Joao Vieiradossantos

bem é assim,

no form cadastro de clientes eu coloquei um dbloookupcombobox para chamar de uma tabela externa a cidade, o bairro e o logradouro, na frente de cada uma destes componentes eu coloquei um botão caso a cidade, bairro ou logradouro nao esta ja cadastrado, certo.
mais ao clicar o botão que chama o cadastro de cidades por exemplo o cadastro de cidades abre mais o cadastro de cliente sobe, ao topo do munitor.
estou usando o align com a clausula albuttom.
este é um problema.

o outro é que quando saio do cadastro que chamei via botal exemplo o cadastro de cidade a tabela fecha, e nao consigo puxar o s dados cadastrados naquele momento.

o codigo do botão é

procedure TFrm_clientes.BT_3Click(Sender: TObject);
VAR CIDADES:TFrm_cidades;
begin
cidades:=TFrm_cidades.Create(self);
cidades.ShowModal;
end;

Responder

Gostei + 0

18/12/2012

Joao Vieiradossantos

bem é assim,

no form cadastro de clientes eu coloquei um dbloookupcombobox para chamar de uma tabela externa a cidade, o bairro e o logradouro, na frente de cada uma destes componentes eu coloquei um botão caso a cidade, bairro ou logradouro nao esta ja cadastrado, certo.
mais ao clicar o botão que chama o cadastro de cidades por exemplo o cadastro de cidades abre mais o cadastro de cliente sobe, ao topo do munitor.
estou usando o align com a clausula albuttom.
este é um problema.

o outro é que quando saio do cadastro que chamei via botal exemplo o cadastro de cidade a tabela fecha, e nao consigo puxar o s dados cadastrados naquele momento.

o codigo do botão é

procedure TFrm_clientes.BT_3Click(Sender: TObject);
VAR CIDADES:TFrm_cidades;
begin
cidades:=TFrm_cidades.Create(self);
cidades.ShowModal;
end;

Responder

Gostei + 0

18/12/2012

Joao Vieiradossantos

bem é assim,

no form cadastro de clientes eu coloquei um dbloookupcombobox para chamar de uma tabela externa a cidade, o bairro e o logradouro, na frente de cada uma destes componentes eu coloquei um botão caso a cidade, bairro ou logradouro nao esta ja cadastrado, certo.
mais ao clicar o botão que chama o cadastro de cidades por exemplo o cadastro de cidades abre mais o cadastro de cliente sobe, ao topo do munitor.
estou usando o align com a clausula albuttom.
este é um problema.

o outro é que quando saio do cadastro que chamei via botal exemplo o cadastro de cidade a tabela fecha, e nao consigo puxar o s dados cadastrados naquele momento.

o codigo do botão é

procedure TFrm_clientes.BT_3Click(Sender: TObject);
VAR CIDADES:TFrm_cidades;
begin
cidades:=TFrm_cidades.Create(self);
cidades.ShowModal;
end;

Responder

Gostei + 0

18/12/2012

Joao Vieiradossantos

bem é assim,

no form cadastro de clientes eu coloquei um dbloookupcombobox para chamar de uma tabela externa a cidade, o bairro e o logradouro, na frente de cada uma destes componentes eu coloquei um botão caso a cidade, bairro ou logradouro nao esta ja cadastrado, certo.
mais ao clicar o botão que chama o cadastro de cidades por exemplo o cadastro de cidades abre mais o cadastro de cliente sobe, ao topo do munitor.
estou usando o align com a clausula albuttom.
este é um problema.

o outro é que quando saio do cadastro que chamei via botal exemplo o cadastro de cidade a tabela fecha, e nao consigo puxar o s dados cadastrados naquele momento.

o codigo do botão é

procedure TFrm_clientes.BT_3Click(Sender: TObject);
VAR CIDADES:TFrm_cidades;
begin
cidades:=TFrm_cidades.Create(self);
cidades.ShowModal;
end;
Responder

Gostei + 0

18/12/2012

Rodolpho Silva

Acho que entendi (se entendi errado, você avisa, ok?)

No ShowModal, o form fica na frente de todas as janelas aguardando até que seja fechado. Pelo que entendi, você quer pegar esses dados após o Form ter sido fechado. Para isso, tente assim:
procedure TFrm_clientes.BT_3Click(Sender: TObject);
VAR CIDADES:TFrm_cidades;
 sValorQueEuQuero: String;
begin
  cidades:=TFrm_cidades.Create(self);
  cidades.ShowModal;
  sValorQueEuQuero := cidades.Edit1.Text;
//... e assim por diante...

// Não se esqueça de destruir a instância do Form
  cidades.Release;
end;


Teste aí...qq coisa avise, ok?
Responder

Gostei + 0

18/12/2012

Joao Vieiradossantos

Acho que entendi (se entendi errado, você avisa, ok?)

No ShowModal, o form fica na frente de todas as janelas aguardando até que seja fechado. Pelo que entendi, você quer pegar esses dados após o Form ter sido fechado. Para isso, tente assim:
procedure TFrm_clientes.BT_3Click(Sender: TObject);
VAR CIDADES:TFrm_cidades;
 sValorQueEuQuero: String;
begin
  cidades:=TFrm_cidades.Create(self);
  cidades.ShowModal;
  sValorQueEuQuero := cidades.Edit1.Text;
//... e assim por diante...

// Não se esqueça de destruir a instância do Form
  cidades.Release;
end;


Teste aí...qq coisa avise, ok?




bom no meu formclose ta assim
procedure TFrm_cidades.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
DM_DADOS.IBT_cidades.Close; //(dmdados onde esta a tabela)
end;
-------------------------------------------
no botão sair ta assim


procedure TFrm_cidades.BTN7Click(Sender: TObject);
begin
CLOSE;
end;
------------------------------------------
é ai que acho que o erro esta pois ele fecha o dmdados
Responder

Gostei + 0

18/12/2012

Joao Vieiradossantos

Acho que entendi (se entendi errado, você avisa, ok?)

No ShowModal, o form fica na frente de todas as janelas aguardando até que seja fechado. Pelo que entendi, você quer pegar esses dados após o Form ter sido fechado. Para isso, tente assim:
procedure TFrm_clientes.BT_3Click(Sender: TObject);
VAR CIDADES:TFrm_cidades;
 sValorQueEuQuero: String;
begin
  cidades:=TFrm_cidades.Create(self);
  cidades.ShowModal;
  sValorQueEuQuero := cidades.Edit1.Text;
//... e assim por diante...

// Não se esqueça de destruir a instância do Form
  cidades.Release;
end;


Teste aí...qq coisa avise, ok?




bom no meu formclose ta assim
procedure TFrm_cidades.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
DM_DADOS.IBT_cidades.Close; //(dmdados onde esta a tabela)
end;
-------------------------------------------
no botão sair ta assim


procedure TFrm_cidades.BTN7Click(Sender: TObject);
begin
CLOSE;
end;
------------------------------------------
é ai que acho que o erro esta pois ele fecha o dmdados
Responder

Gostei + 0

18/12/2012

Rodolpho Silva

Você não fechou o DM e sim um Dataset no DM
DM_DADOS.IBT_cidades.Close;


Mas agora complicou. Onde está o erro?
Responder

Gostei + 0

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

Aceitar