Duvida com combobox

Delphi

09/08/2005

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

Curtidas 0

Respostas

Fievel

Fievel

09/08/2005

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

procedure TFrmPrincipal.CBTipo1Change(Sender: TObject);



GOSTEI 0
Fabiano_aprendiz

Fabiano_aprendiz

09/08/2005

FIEL escreveu:

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

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

Tbm não funciona.


GOSTEI 0
Sistemald

Sistemald

09/08/2005

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


GOSTEI 0
Fabiano_aprendiz

Fabiano_aprendiz

09/08/2005

Dentro do própio combobox


GOSTEI 0
Marco Salles

Marco Salles

09/08/2005

é

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;



GOSTEI 0
Fabiano_aprendiz

Fabiano_aprendiz

09/08/2005

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


GOSTEI 0
Marco Salles

Marco Salles

09/08/2005

Ate...


GOSTEI 0
POSTAR