Componentes de Edição personalizados para numeros e datas
Amigos,
estou penando com um edit personalizado pra edicao de numeros e datas, quanto as datas quase resolvido porem no caso dos numeros tenho um problema:
por ex: 1.500,00 (formatação final)
a ideia é manter o cursor sempre na direita (o edit esta alinhado a direita) que em desliza pra esquerda é o texto.
tentei fazer usando o vento KeyPress mas nao deu resultado esperado.
nao consigo encontrar qual mensagem interna do windows faz essa funcao.
ps: o edit é derivado da classe tcustommaskedit
agradeço qualquer ajuda.
Uildenei
estou penando com um edit personalizado pra edicao de numeros e datas, quanto as datas quase resolvido porem no caso dos numeros tenho um problema:
por ex: 1.500,00 (formatação final)
a ideia é manter o cursor sempre na direita (o edit esta alinhado a direita) que em desliza pra esquerda é o texto.
tentei fazer usando o vento KeyPress mas nao deu resultado esperado.
nao consigo encontrar qual mensagem interna do windows faz essa funcao.
ps: o edit é derivado da classe tcustommaskedit
agradeço qualquer ajuda.
Uildenei
Uildenei
Curtidas 0
Respostas
Uildenei
13/09/2007
Galera,
consegui resolver ... pra constar e pra quem quiser por no cofre de dicas:
procedure TULIEdit.CreateParams(var Params: TCreateParams);
const Alignments: array[Boolean, TAlignment] of DWORD =
((SS_LEFT, SS_RIGHT, SS_CENTER), (SS_RIGHT, SS_LEFT, SS_CENTER));
begin
inherited CreateParams(Params);
with Params do
begin
Style:=Style or WS_CLIPCHILDREN or Alignments[UseRightToLeftAlignment, FAlinha] or ES_NUMBER or DFCS_SCROLLRIGHT{essa coisa aqui mantem o cursos sempre a direita e o texto eh que desliza};
end;
end;
consegui resolver ... pra constar e pra quem quiser por no cofre de dicas:
procedure TULIEdit.CreateParams(var Params: TCreateParams);
const Alignments: array[Boolean, TAlignment] of DWORD =
((SS_LEFT, SS_RIGHT, SS_CENTER), (SS_RIGHT, SS_LEFT, SS_CENTER));
begin
inherited CreateParams(Params);
with Params do
begin
Style:=Style or WS_CLIPCHILDREN or Alignments[UseRightToLeftAlignment, FAlinha] or ES_NUMBER or DFCS_SCROLLRIGHT{essa coisa aqui mantem o cursos sempre a direita e o texto eh que desliza};
end;
end;
GOSTEI 0