[Resolvido] Caixa de opções a partir de um botão

[Carolina Quartaroli 0]

Gente sou inciante em Delphi e preciso de ajuda!

Eu estou desenvolvendo um programa de caixa de mercado e preciso fazer o seguinte:

No meu form tem um botão de finalizar compra, e quando o usuário clicar nesse botão tem que abrir uma caixa de opções de formas de pagamento, como "pagamento em dinheiro, cheque, débito e crédito". Aí se por exemplo o usuário escolhe "pagamento em dinheiro", o set focus deve ser direcionado para o edit "pagamento em dinheiro" que está no form.

Tem como fazer isso???

Se alguém puder me ajudar agradeço desde já!

[johnatam.camargo 0]

Gente sou inciante em Delphi e preciso de ajuda!

Eu estou desenvolvendo um programa de caixa de mercado e preciso fazer o seguinte:

No meu form tem um botão de finalizar compra, e quando o usuário clicar nesse botão tem que abrir uma caixa de opções de formas de pagamento, como "pagamento em dinheiro, cheque, débito e crédito". Aí se por exemplo o usuário escolhe "pagamento em dinheiro", o set focus deve ser direcionado para o edit "pagamento em dinheiro" que está no form.

Tem como fazer isso???

Se alguém puder me ajudar agradeço desde já!

 

ae colega ateh que parte você tem pronta ae??

 

john_nisterroy@hotmail.com

[Carolina Quartaroli 0]

procedure TForm1.btnfinalizarClick(Sender: TObject);
begin
  if LV.Items.Count<1 then
	begin
	  showmessage ('Não há compras cadastradas!');
	  edqtde.SetFocus;
	end else
	  begin
		 fpag:= InputBox ('Forma de Pagamento', 'Digite a forma de pagamento', '');
				if fpag = dinheiro then
			  begin
			   eddinheiro.SetFocus;
			   end
			  else
			  if fpag = cheque then
			  begin
			  edcheque.SetFocus;
			  end
			  else
			  if fpag = credito then
			  begin
			  edccredito.SetFocus;
			  end
			  else
			  if fpag = debito then
			  begin
			  edcdebito.SetFocus;
			  end
			 end;

	  end;

end.

 

então.... eu fiz com o input box... só q esses meus set focus não funcionam!

o programa ta compilando normal... só quando eu digito nesse meu inputbox q o set focus não direciona pra onde eu to pedindo no if.

[DouglasP 1]

tenta por as string entre aspas: 'cheque' etc.

[Carolina Quartaroli 0]

Nossaaa... era o q faltava msm!!! as aspas!!!! Obrigado!!! ;D