Casa
Top.Mail.Ru Yandeks.Metrika
Fórum: "Principal";
Arquivo atual: 2002.01.08;
Download: [xml.tar.bz2];

Para baixo

Como fazer o TEdit não gerar um bipe quando o manipulador de pressionamento de tecla está ativado. Encontre agências semelhantes


voronkov   (2001-12-18 12:27) [0]

Eu cansei dessa trabl e não sei lutar. No TEdit, eu uso o manipulador de pressionamentos de tecla OnKeyDown. Eu pego as teclas digitadas como Enter, Escape e outras. Depois de pressionar essas teclas, um bipe é emitido. Se houver uma placa de som, o sinal do esquema de som definido, se não, o alto-falante do computador funciona. Usuários uivam, eu sento com eles, uivo também. Escalar dentro de computadores e cortar os alto-falantes parece-me antiesportivo. Como atropelar isso?



Anatoly Podgoretsky   (2001-12-18 12:34) [1]

Chave: = # 0



Anatoly Podgoretsky   (2001-12-18 12:36) [2]

Desculpe, pensei sobre OnKeyPress



Виктор Щербаков   (2001-12-18 12:42) [3]

E quanto ao OnKeyDown? Recentemente houve o mesmo problema.
Tive que usar o RichEdit.



Владислав   (2001-12-18 12:58) [4]

Então, quais são os problemas?
Você precisa adicionar OnKeyPress e Key: = # 0;



Teacher   (2001-12-18 13:02) [5]

Eu processo o OnKeyUp, eu não faço nada exceto a atribuição #0 ao receber códigos processados ​​no OnKeyDown.



Виктор Щербаков   (2001-12-18 13:04) [6]

para Vladislav ©
Da ajuda:
Chaves que não correspondem a um valor Char ASCII (Shift ou F1, por exemplo) não geram um evento OnKeyPress.



Владислав   (2001-12-18 13:06) [7]

> © Victor Shcherbakov (18.12.01 13: 04)

Sim, mas graças a Deus eles não "rangem".



Виктор Щербаков   (2001-12-18 13:09) [8]

Experimente Ctrl + S por exemplo :)



Владислав   (2001-12-18 13:19) [9]

> © Victor Shcherbakov (18.12.01 13: 09)

Não "peep", no entanto?

Qualquer outra coisa em que você possa pensar?

:)))



voronkov   (2001-12-18 13:19) [10]

Eu tentei inserir a chave: = 0 no OnKeyUp, o problema permaneceu. Bem comeu, que tipo fazer?



Dmitriy(new)   (2001-12-18 14:29) [11]

TMyEdit = classe (TEdit)
...
procedimento KeyPress (var Key: Char); substituir;
...
End;

procedimento TMyEdit.KeyPress (var Key: Char);
começar
chave do caso de
#1..#12,#14..#26,#28..#255:;
outra chave: = # 0;
End;
End;


e não "squeak".



cdaDmitriy   (2001-12-18 15:22) [12]

trabalho?



panov   (2001-12-18 15:26) [13]

Experimente assim:
procedimento TfDocEdit.FormKeyPress (Sender: TObject; var Key: Char);
começar
if (Key = #27) então
começar
Chave: = # 0;
se (fDocEdit.ActiveControl for TEdit) então
começar
TEdit (fDocEdit.ActiveControl) .Text: = vPrevValue;
TEdit (fDocEdit.ActiveControl) .Modificado: = Falso;
end;
end;
if (Key = #13) então
começar
Chave: = # 0;
Executar (WM_NEXTDLGCTL, 0,0);
end;
end;



panov   (2001-12-18 15:27) [14]

E não se esqueça de definir
TfDocEdit.KeyPreview: = True;



cdaDmitriy   (2001-12-18 15:32) [15]

>> panov ©
Esqueci KeyPreview: = true;
e a questão é o que você fará se no formulário / projeto 10 ..n TEdit?

esqueceu-se da OOP



voronkov   (2001-12-18 16:06) [16]

Cara, obrigada a todos. Não peep combinação com
chave do caso de
#13: begin
...
end;
outra chave: = # 0;
End;
no OnKeyPress, embora seja um pouco incomum trabalhar com esse evento, já que estou acostumado a trabalhar com constantes como o VK _...
Infelizmente, estou escrevendo um programa com uma grande quantidade de entrada manual e muitas vezes diferentes TEdit deve responder de forma diferente para as mesmas chaves, caso contrário, você pode usar eventos de formulário. Portanto, a OLP não salva o pai da democracia russa.



panov   (2001-12-18 16:12) [17]

> cdaDmitriy © (18.12.01 15: 32)
Você escreve o nome desse manipulador para cada um.



cdaDmitriy   (2001-12-18 16:15) [18]

> panov © esqueceu-se de OOP
você faz um novo componente (T..Edit) uma vez

procedimento KeyPress (var Key: Char); substituir;

e usá-lo



Страницы: 1 filial inteira

Fórum: "Principal";
Arquivo atual: 2002.01.08;
Download: [xml.tar.bz2];

em cima









Memória: 0.61 MB
Hora: 0.046 c
1-22002
BFG
2001-12-16 16:24
2002.01.08
Gráficos


3-21976
Termik
2001-12-06 11:47
2002.01.08
Procedimentos armazenados, objetos dinâmicos


7-22438
Sasha
2001-08-17 16:14
2002.01.08
Modem de voz


7-22435
sssss
2001-09-23 14:15
2002.01.08
MASTERYYY !!! PERGUNTA DE VIDA E MORTE !!!!


3-21915
KAA
2001-12-04 10:28
2002.01.08
Zerando uma variável MSSQL2000





afrikaans albanês Arabic armênio azerbaijano basco belarusian Bulgarian catalão Chinês simplificado) Chinês tradicional) croata checo dinamarquês Dutch Inglês estoniano filipino Finnish French
Galego georgiano German grego crioulo haitiano hebraico hindi húngaro islandês Indonesian irlandês Italian Japanese Korean letão lituano macedónio Malay maltês Norwegian
persa polonês Portuguese romeno Russa sérvio Slovak esloveno espanhol swahili sueco tailandês turco ucraniano urdu vietnamita galês ídiche bengali bósnio
cebuano esperanto gujarati hausa hmong igbo javanês kannada khmer lao latino maori marata mongol Nepali punjabi somali tâmil telugu yoruba
zulu
Английский francês Alemão Italiano Португальский russo Espanhol