GARANTIR DESCONTO

Fórum Duvida com combobox #291252

09/08/2005

0

Delphi

Caros colegas,
Tenho um combobox com os seguintes items :
Atualização
Produto
Serviço
Na hora em q o usuário selecionar o item eu quero q só apareça a primeira letra. Exemplo: Se o cara selecionar Atualização tem q aparecer A.
Fiz o seguinte:
procedure TFrmPrincipal.CBTipo1Exit(Sender: TObject);
begin
If CBTipo1.ItemIndex = 0 Then
CBTipo1.Text:= ´A´;
end;

Mas não funcionou, alguem pode me dar alguma dica?
Desde já agradeço.


Fabiano_aprendiz

Fabiano_aprendiz

Responder

Posts

09/08/2005

Fievel

Amigo, use o método CHANGE ao invés do EXIT

procedure TFrmPrincipal.CBTipo1Change(Sender: TObject);



Responder

Gostei + 0

09/08/2005

Fabiano_aprendiz

FIEL escreveu:

Amigo, use o método CHANGE ao invés do EXIT

Código:
procedure TFrmPrincipal.CBTipo1Change(Sender: TObject);

Tbm não funciona.


Responder

Gostei + 0

09/08/2005

Sistemald

Amigo você quer que a letra apereca dentro do combobox? ou em outro controle?


Responder

Gostei + 0

09/08/2005

Fabiano_aprendiz

Dentro do própio combobox


Responder

Gostei + 0

09/08/2005

Marco Salles

é

var
i:integer;


procedure TForm1.ComboBox1Click(Sender: TObject);
var
 P:string;
begin
P:=Combobox1.Items[Combobox1.itemIndex];
if Combobox1.Items.Count > i then
  combobox1.Items.Delete(i);
combobox1.Items.Add(P[1]);
Combobox1.ItemIndex:=i;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
i:=Combobox1.Items.Count;
end;



Responder

Gostei + 0

10/08/2005

Fabiano_aprendiz

Vlw Marco, com a sua dica funcionou perfeitamente.Obrigado a todos.
[]´s.


Responder

Gostei + 0

10/08/2005

Marco Salles

Ate...


Responder

Gostei + 0

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

Aceitar