Coloque um
ComboBox num form e mude o estilo para ...
Style:=csDropDownList;
Depois use os procedimentos descritos abaixo.
Boa sorte;
Claudio H.Binaghi
[EMAIL PROTECTED]
Fone: (011) 3289.3525 / 3289.0075
----------------------------------------------------------
Function TForm1.Procura(S:TStrings;K:Integer):Integer;
Var N: TStringList;
I: Integer;
C: String;
Begin
N := TStringList.Create;
For I:= 0 to S.Count-1 do N.Add(S.Strings[I]);
C := UpperCase(Char(K));
IF N.Find(C,I) Then Result:=I else Result:=-1;
End;
----------------------------------------------------------
procedure TForm1.ComboBox1KeyDown(Sender: TObject; var Key: Word; Shift:
TShiftState);
begin
ComboBox1.ItemIndex:=Procura(ComboBox1.Items,Key);
end;
----------------------------------------------------------
----- Original Message -----
From: "Info Desenvolvimento" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Tuesday, March 29, 2005 11:52 AM
Subject: [delphi-br] ComboBox
Alguém sabe como faço para que um ComboBox mesmo que tenha em seus items S
ou N, para sim ou não. Ao digitar s passe para S e n para N.
Já testei nos eventos onKeyDown e onExit, o seguinte:
if Key = VK_RETURN then
Perform(Wm_NextDlgCtl,0,0);
Não funcionou, o que devo fazer?
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
--
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.8.4 - Release Date: 27/03/2005
--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.8.4 - Release Date: 27/03/2005
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
