ComboBox Lazarus

[RibaSoft]

*    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! 

[Juliomar Marchetti]

Movi para um subforum adequado pois não tem relação com o ACBrNFe

[RibaSoft]

nossa desculpa, vou ver onde vc colocou e da proxima vez já coloco no lugar certo.

DEUS abençoe

[RibaSoft]

* Olá

* Corrigi a função pois ela estava funcionado apenas com dois dígitos.

* Na UF funcionou de boa, mas quando fui usar nos municípios que vi a caca que eu tinha feito.

* Dai a função ficou assim...

//========================== COMBO BOX KEY ===================================\\
function TRiba.ComboBoxKey(const AKey: char; AItens: TPersistent): integer;
var
  auxItens: TStringList;
  I: integer;
  auxItem: string;
begin
  MemKey := MemKey + FormataTexto(AKey);

  try
    auxItens := TStringList.Create;
    auxItens.Assign(AItens);

    for I := 0 to Pred(auxItens.Count) do
    begin
      auxItem := UpperCase(Copy(auxItens[I], 1, Length(MemKey)));

      if(auxItem = MemKey)then
        Result := I;
    end;
  finally
    auxItens.Free;
  end;
  TimerMemKey.Enabled := True;
end;                   

* E pra chamar ela ficou assim...

//============================= CB UF KEY PRESS ==============================\\
procedure TFormClientes2.cbUFKeyPress(Sender: TObject; var Key: char);
begin
  if (key = #13) then
    Exit;

  (Sender as TComboBox).ItemIndex := Riba.ComboBoxKey(Key, (Sender as TComboBox).Items);
  Key := #0;
end;

* Desculpa a falha!

[RibaSoft]

* Ajustei com um Break no for pra ele pegar o primeiro item

for I := 0 to Pred(auxItens.Count) do
begin
    auxItem := UpperCase(Copy(auxItens[I], 1, Length(MemKey)));

    if(auxItem = MemKey)then
    begin
        Result := I;
        Break;
    end;
end;