Hints
Oi gostaria de saber como posso fazer para mostrar um hint sem passar o mouse, ou seja quando entrar no edit, pois gostaria de que o usuario visse as opcoes do campo com hints ou qualquer outra coisa e quando sair as opoes somem nao quero usar combobox.
Gostaria de sabem tambem se tem como tirar o som quando muda de campo com enter usando o envendo onkeydown.
Gostaria de sabem tambem se tem como tirar o som quando muda de campo com enter usando o envendo onkeydown.
Cleudsoncosta
Curtidas 0
Respostas
Thomaz_prg
29/02/2004
quanto aos hints não posso te ajudar, mas quanto a tecla, você já tentou redirecionar o valor pressionado para zero?
Eu utilizo o evento onkeypress dessa forma
procedure TfrmCadCli.edt_nomeKeyPress(Sender: TObject; var Key: char);
begin
if key=#13 then
Begin
SelectNext(Sender as tWinControl, True, True );
Key := 0; //suprime som
end;
end;
este exemplo faz com que seja selecionado o proximo objeto que é controlado pelo taborder.
Espero ter ajudado.
Eu utilizo o evento onkeypress dessa forma
procedure TfrmCadCli.edt_nomeKeyPress(Sender: TObject; var Key: char);
begin
if key=#13 then
Begin
SelectNext(Sender as tWinControl, True, True );
Key := 0; //suprime som
end;
end;
este exemplo faz com que seja selecionado o proximo objeto que é controlado pelo taborder.
Espero ter ajudado.
GOSTEI 0
Cleudsoncosta
29/02/2004
Caro amigo existem algumas teclas que nao geram o evento onkeypress assim so posso utilizar no evento onkeydown que gera o som sempre que muda de campo com o enter.
muito obricago pela ajuda
Léo
muito obricago pela ajuda
Léo
GOSTEI 0