procedure TfmCadProd.btnSalvarClick(Sender: TObject);
begin
if Edit1.Text = '' then
begin
Messagedlg('Digite o produto!',mtWarning,[mbok],0);
edit1.SetFocus;
end
else begin
fmCadOsCancel.DBComboBox1.Items.Add(Edit1.Text);
Edit1.Clear;
btnFechar.setFocus;
end;
end;
Eu estou utilizando o form : fmCadProd onde existe um edit1.text.
Quando eu digito algo no campo e clico no btnSalvar quero que este texto vá para um ComboBox em outro form chamado fmCadOsCancel.
O programa compilou sem problemas....só que quando eu clico no botão dá este erro aí
Pergunta
Alessandro
Galera, é o seguinte
Eu fiz o seguinte código :
Eu estou utilizando o form : fmCadProd onde existe um edit1.text.
Quando eu digito algo no campo e clico no btnSalvar quero que este texto vá para um ComboBox em outro form chamado fmCadOsCancel.
O programa compilou sem problemas....só que quando eu clico no botão dá este erro aí
Clica aqui pra ver o erro que esta dando
Alguém sabe porque ?
Alguém tem outra forma de fazer isso ?
Link para o comentário
Compartilhar em outros sites
7 respostass a esta questão
Posts Recomendados