Frames com eventos
Criei um frame com os componentes EditCodigo, EditNome, ButtonConsulta
ao digitar um numero no EditCodigo e clicar no botao, ele carrega um determinado texto no EditNome. Fiz a rotina do botão da seguinte forma:
procedure TForm1.ButtonConsultaClick(Sender: TObject);
begin
if EditCodigo.Text = ´1´ then
EditNome.Text := ´COMPOSTO´;
else if EditCodigo.Text = ´2´ then
EditNome.Text := ´NÃO COMPOSTO´;
end;
O problema é que quando eu coloco esse Frame em alguma tela ele não funciona. Debugando eu percebi que quando eu clico no botão o EditCodigo.Text está vazio...dae não funciona.
Alguém ja teve esse problema?
ao digitar um numero no EditCodigo e clicar no botao, ele carrega um determinado texto no EditNome. Fiz a rotina do botão da seguinte forma:
procedure TForm1.ButtonConsultaClick(Sender: TObject);
begin
if EditCodigo.Text = ´1´ then
EditNome.Text := ´COMPOSTO´;
else if EditCodigo.Text = ´2´ then
EditNome.Text := ´NÃO COMPOSTO´;
end;
O problema é que quando eu coloco esse Frame em alguma tela ele não funciona. Debugando eu percebi que quando eu clico no botão o EditCodigo.Text está vazio...dae não funciona.
Alguém ja teve esse problema?
Vispo
Curtidas 0