(Resolvido) combobox com mascara

[MICHELI_MARTINS]

boa tarde pessoal.

estou precisando colocar uma mascara de placa de automovel no combobox e enquanto o usuario não digitar corretamente segure o foco no combo.

alguém sabe como fazer isso?

tentei assim:

dbplaca.Text:=FormatMaskText('LLL-9999', dbplaca.Text).

ate aparece a mascara, mas quando começo a digitar a formatação desaparece e me permite digitar o que eu quizer.

[Jhonas]

sugestão:

use um componente MaskEdit por cima do Combobox

abraço

[MICHELI_MARTINS]

como faço ? nunca tentei antes.

[MICHELI_MARTINS]

jhonas eu ate tentei aqui ta quase, ms o restante não sei como fazer.

no primeiro instante eu foco no combo; no evendo change dele passo o valor para o maskedit.

no exit do maskedit eu travo para o usuario não colocar vazio assim:

if maskedit1.text = ' - ' then

begin

showmessage('PLACA não PODE SER VAZIA');

maskedit1.setfocus;

end

else

dbhorainicial.setfocus;

o problema agora é que ele tem que dar a liberdade para o usuario abrir o combo novamente, e ai se o usuario não selecionar nada,

continuar na rotina de travar ate que ele escolha um item do combo ou digite uma placa manualmente no maskedit.

so que com esta rotina que te passei acima, ele não deixa nem clicar no combo novamente.

alguma sugestao?

[Jhonas]

tente assim

procedure TForm1.MaskEdit1Exit(Sender: TObject);
begin
   if maskedit1.Text = '   -    ' then
      begin
        showmessage('PLACA NÃO PODE SER VAZIA');
        ComboBox1.setfocus;
      end
   else
      ComboBox1.setfocus;

end;

procedure TForm1.ComboBox1Click(Sender: TObject);
begin
   MaskEdit1.EditText := ComboBox1.Items.Strings[ComboBox1.ItemIndex];
end;

abraço

[MICHELI_MARTINS]

tudo bem eu posso ate trocar o foco para o combobox, mas e se o usuario não clicar?

acaba saindo do campo e não trava mais, esse é o problema.

Ai no caso teria que ter um evento no combobox repassando para o maskedit novamente se o usuario não clicar.

so que não sei como fazer.

[MICHELI_MARTINS]

jhonas, fiz assim no evento onexit do combobox:

if dbcombobox.text = '' then

maskedit1.setfocus;

ai volta o foco para a mascara deu certo.

agora, quando eu pressionar o botao cancelar ele tem que suspender essa operação, ou seja cancelar o foco e o form volta ao seu estado normal.

como eu tiro esse foco clicando no botao cancelar?

tentei:

maskedit1.clear;

mas não resolveu.

[Jhonas]

existem algumas maneiras... uma delas seria

procedure TForm1.MaskEdit1Exit(Sender: TObject);
begin
   if maskedit1.Text = '   -    ' then
      begin
        showmessage('PLACA NÃO PODE SER VAZIA');
        ComboBox1.setfocus;
      end
   else
      ComboBox1.setfocus;

end;

procedure TForm1.ComboBox1Click(Sender: TObject);
begin
   MaskEdit1.EditText := ComboBox1.Items.Strings[ComboBox1.ItemIndex];
end;


procedure TForm1.MaskEdit1KeyPress(Sender: TObject; var Key: Char);
begin
   if key = #27 then
      BitBtn1.SetFocus;
end;

procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
   if key = #27 then
      BitBtn1.SetFocus;
end;

abraço

[MICHELI_MARTINS]

ok obrigada.