Pesquisar na Comunidade

* Olá, procurei muito por essa solução e como não encontrei decidi disponibilizar aqui a forma que eu pensei para o ComboBox do lázaros aceitar mais dígitos quando a propriedade Style = csDropDownList * Como a função em uma classe criei o Timer em tempo de exeção... * uses para criar o timer ExtCtrls var MemKey: string; //================================ CREATE ====================================\\ constructor TRiba.Create; begin TimerMemKey := TTimer.Create(nil); TimerMemKey.Interval := 1000; TimerMemKey.Enabled := False; TimerMemKey.OnTimer := @TimerMemKeyOnTimer; MemKey := ''; end; //================================= DESTRUCTOR ===============================\\ destructor TRiba.Destroy; begin TimerMemKey.Free; inherited Destroy; end; //================================ TIMER =====================================\\ procedure TRiba.TimerMemKeyOnTimer(Sender: TObject); begin MemKey := ''; TimerMemKey.Enabled := False; end; * Dai a função ficou assim... //========================== COMBO BOX KEY ===================================\\ function TRiba.ComboBoxKey(const Key: char): string; begin MemKey := MemKey + Key; Result := MemKey; TimerMemKey.Enabled := True; end; * E no evento on key press do combobox ficou assim... //============================= CB UF KEY PRESS ==============================\\ procedure TFormClientes2.cbUFKeyPress(Sender: TObject; var Key: char); begin //to usando o sender para poder anexar todos os combobox do form ao mesmo evento (Sender as TComboBox).Text := Riba.ComboBoxKey(Key); Key := #0; end; //===========================================================================\\ Se essa solução não for apropriada peço desculpa aos moderadores e peço que exclua essa portagem por favor. DEUS abençoe a todos!