Cursor pulando de Edit para Edit
Duas perguntas:
1º - Como faço para saber a quantidade de caracteres que foi digitado em um Maskedit.
2º - Tenho um MaskEdit mascarado como data (__/__/__ para ser preenchido com um total de seis caracteres). Como faço para que no momento em que ele seja preenchido o cursor vá automaticamente para o seguinte MaskEdit.
Valeu Galera
Denysk
1º - Como faço para saber a quantidade de caracteres que foi digitado em um Maskedit.
2º - Tenho um MaskEdit mascarado como data (__/__/__ para ser preenchido com um total de seis caracteres). Como faço para que no momento em que ele seja preenchido o cursor vá automaticamente para o seguinte MaskEdit.
Valeu Galera
Denysk
Denysk
Curtidas 0
Respostas
Profjohnny
12/08/2003
declare uma variavel na seção private do formulário e no evento onKeyPress do MaskEdit incremente esta variavel...
qualquer duvida entre em contato
qualquer duvida entre em contato
GOSTEI 0
Marcelo
12/08/2003
Depende... se o seu campo for apenas para cadastro voce pode optar pelo seguinte codigo, no evento OnChange...
[b:75a6446b8a]...
begin
if Length(Edit1.Text) = 6 then
begin
Perform(WM_NEXTDLGCTL, 0, 0);
end;
end;
...[/b:75a6446b8a]
Caso seu campo é usado tambem para visualizar dados, você terá que usar o evento OnKeyPress!
Valeu?
[b:75a6446b8a]...
begin
if Length(Edit1.Text) = 6 then
begin
Perform(WM_NEXTDLGCTL, 0, 0);
end;
end;
...[/b:75a6446b8a]
Caso seu campo é usado tambem para visualizar dados, você terá que usar o evento OnKeyPress!
Valeu?
GOSTEI 0
Cebikyn
12/08/2003
Para mudar de MaskEdit quando o usuário terminar de preenxe-lo, coloque no evento [b:4c44006c3b]OnChange[/b:4c44006c3b]:
A linha de código:
pode ser substituida pela sugestão do marcelo:
Ao marcelo: a função [b:4c44006c3b]Length(MaskEdit1.Text)[/b:4c44006c3b] quando usada em MaskEdits formatados para data ( __/__/__) [b:4c44006c3b]sempre[/b:4c44006c3b] retorna 8...
if Pos(´ ´, MaskEdit1.Text)=0
then
MaskEdit2.SetFocus;A linha de código:
MaskEdit2.SetFocus;
pode ser substituida pela sugestão do marcelo:
Perform(WM_NEXTDLGCTL, 0, 0);
Ao marcelo: a função [b:4c44006c3b]Length(MaskEdit1.Text)[/b:4c44006c3b] quando usada em MaskEdits formatados para data ( __/__/__) [b:4c44006c3b]sempre[/b:4c44006c3b] retorna 8...
GOSTEI 0
Denysk
12/08/2003
A propósito, é possivel colocar animações flash no Delphi? Como?
GOSTEI 0
Cebikyn
12/08/2003
A propósito, é possivel colocar animações flash no Delphi? Como?
Sim. O [i:78d7d4cbe6]Flash Player[/i:78d7d4cbe6], quando instalado, copia um componente [i:78d7d4cbe6]ActiveX[/i:78d7d4cbe6] que visualiza *.swf direto no seu form, para instala-lo, clique em [b:78d7d4cbe6]Components[/b:78d7d4cbe6], depois em [b:78d7d4cbe6]Import ActiveX Control[/b:78d7d4cbe6], depois procure pelo Flash, depois de selecionar a opção desejada, clique no botão [b:78d7d4cbe6]Create Unit[/b:78d7d4cbe6] e depois em [b:78d7d4cbe6]Install[/b:78d7d4cbe6]. Depois procure pelo componente [b:78d7d4cbe6]TShockwavFlash[/b:78d7d4cbe6] na paleta [i:78d7d4cbe6]ActiveX[/i:78d7d4cbe6].
GOSTEI 0