Casa
Top.Mail.Ru Yandeks.Metrika
Foro: "Principal";
Archivo actual: 2002.01.08;
Descargar: [xml.tar.bz2];

abajo

Cómo hacer que TEdit no genere un pitido cuando el controlador de pulsaciones de tecla está activado. Encontrar ramas similares


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

Cansé este trabl y no sé pelear. En TEdit, uso el controlador de pulsaciones de teclas OnKeyDown. Capto pulsaciones como Enter, Escape y otros. Después de presionar estas teclas, suena un pitido. Si hay una tarjeta de sonido, entonces la señal del conjunto de esquemas de sonido, si no, el altavoz del equipo funciona. Los usuarios aullan, yo me siento con ellos, también aullan. La escalada dentro de las computadoras y el corte de los altavoces me parece antideportivo. ¿Cómo pisotearlo?



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

Clave: = # 0



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

Lo siento, pensé en OnKeyPress



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

¿Y qué hay de OnKeyDown? Recientemente hubo el mismo problema.
Tuve que usar RichEdit.



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

Entonces, ¿cuáles son los problemas?
Debe agregar OnKeyPress y la clave: = # 0;



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

Procesé OnKeyUp, no hago nada excepto asignar #0 al obtener los códigos procesados ​​en OnKeyDown.



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

a Vladislav ©
De la ayuda:
Las claves no corresponden a un valor Char de ASCII (Shift o F1, por ejemplo) no generan un evento OnKeyPress.



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

> Victor Shcherbakov © (18.12.01 13: 04)

Sí, pero ellos, gracias a Dios, y no "peep".



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

Pruebe Ctrl + S por ejemplo :)



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

> Victor Shcherbakov © (18.12.01 13: 09)

Sin embargo, no es "pitido"?

¿Algo más en lo que pienses?

:)))



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

Intenté insertarlo en la clave OnKeyUp: = 0, el problema permaneció. Bueno, elah-burns, ¿qué tipo de hacer?



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

TMyEdit = clase (TEdit)
...
Procedimiento KeyPress (var Key: Char); anular
...
End;

procedimiento TMyEdit.KeyPress (var Key: Char);
comenzar
clave de caso de
#1..#12,#14..#26,#28..#255:;
otra tecla: = # 0;
End;
End;


y no "espiar".



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

trabajo ?



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

Prueba esto
Procedimiento TfDocEdit.FormKeyPress (Sender: TObject; var Key: Char);
comenzar
if (Key = #27) entonces
comenzar
Clave: = # 0;
si (fDocEdit.ActiveControl es TEdit) entonces
comenzar
TEdit (fDocEdit .ActiveControl) .Text: = vPrevValue;
TEdit (fDocEdit.ActiveControl) .Modificado: = Falso;
fin;
fin;
if (Key = #13) entonces
comenzar
Clave: = # 0;
Realizar (WM_NEXTDLGCTL, 0,0);
fin;
fin;



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

Y no te olvides de configurar
TfDocEdit.KeyPreview: = True;



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

>> panov ©
olvidé KeyPreview: = true;
y la pregunta es qué hará si en el formulario / proyecto 10 ..n TEdit?

olvidé oop



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

Amigo, gracias a todos. No mire la combinación con
clave de caso de
#13: comienza
...
fin;
otra tecla: = # 0;
End;
en OnKeyPress, aunque es un poco inusual trabajar con este evento, ya que estoy acostumbrado a trabajar con constantes de tipo VK _...
Desafortunadamente, estoy escribiendo un programa con una gran cantidad de entrada manual y, a menudo, diferentes TEdit deben responder de manera diferente a las mismas teclas, de lo contrario, puede usar eventos de formulario. Así que la OLP aquí no salva al padre de la democracia rusa.



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

> cdaDmitriy © (18.12.01 15: 32)
Cada uno prescribe el nombre de este manejador.



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

> panov © olvidé OOP
hacer un nuevo componente (T..Edit) una vez

Procedimiento KeyPress (var Key: Char); anular

y lo usas



Páginas: 1 rama entera

Foro: "Principal";
Archivo actual: 2002.01.08;
Descargar: [xml.tar.bz2];

arriba









Memoria: 0.61 MB
Tiempo: 0.041 c
3-21909
DeadMoroz
2001-12-03 15:21
2002.01.08
Buen dia necesito consejo por favor


3-21900
vano
2001-12-07 11:13
2002.01.08
TString y String


3-21963
szap
2001-12-05 11:53
2002.01.08
velocidad


1-22089
AYUDE A PLZ
2001-12-15 18:22
2002.01.08
Dll s


1-22201
T2
2001-12-16 07:13
2002.01.08
Espectro de sonido





africaans albanés Arabic armenio Azerbaiyán vasco Bielorruso Bulgarian Catalán Chino (simplificado) Chino (tradicional) Croata Checo Danés Dutch Inglés Estonia filipina Finnish Francés
gallego georgiano Alemán Griego criollo haitiano hebreo hindi Húngaro islandés Indonesian irlandés Italiana Japonés Korean letón lituano macedonio Malay maltés Noruego
persa polaco Portuguese rumano Ruso Serbio Slovak Esloveno Español swahili Sueco Thai turco ucranio Urdu vietnamita galés yídish bengalí bosnio
cebuano esperanto gujarati hausa hmong igbo javanés kannada khmer lao latín maorí marathi mongol nepali punjabi somalí Tamil telugu yoruba
zulú
Английский Francés Alemán Italiano portugués Русский Español