Форум: "Начинающим";
Текущий архив: 2014.04.27;
Скачать: [xml.tar.bz2];
Вниз
Ненужный звук при нажатии Enter в поле TEdit Найти похожие ветки
← →
kuku (2013-07-19 15:31) [0]Граждане профи, объясните пожалуйста, почему при нажатии Enter в поле TEdit или TLabeledEdit винда выдает нежелательный звук, вроде как ошибочное действие, независимо от наличия обработчика нажатия клавиши. Можно ли с этим бороться и как?
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
LabeledEdit1: TLabeledEdit;
Edit1: TEdit;
Label1: TLabel;
procedure LabeledEdit1Change(Sender: TObject);
procedure LabeledEdit1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.LabeledEdit1Change(Sender: TObject);
begin
Label1.Caption:= "URA";
end;
procedure TForm1.LabeledEdit1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_RETURN then
Label1.Caption:= "XREN";
end;
end.
← →
sniknik © (2013-07-19 15:42) [1]попробуй сделать Key:= 0; в онклик.
← →
Anatoly Podgoretsky © (2013-07-19 16:39) [2]Звук очень желательный, это обратная связь о нажатие неположенных клавиш. Конечно можешь это задавить, но это вредно.
← →
kuku (2013-07-19 17:21) [3]"это обратная связь о нажатие неположенных клавиш. Конечно можешь это задавить, но это вредно."
Почему не положенных? Если, например, мне надо из этого поля взять значение и что-либо с ним сделать? Логично, набрав в поле ввода нужное, нажать Enter. Но звук раздражает. Можно ли сделать Enter положенной клавишей?
← →
Anatoly Podgoretsky © (2013-07-19 17:37) [4]А что тебе sniknik ответил, разве не это
← →
kuku (2013-07-19 17:51) [5]
> попробуй сделать Key:= 0; в онклик.
> А что тебе sniknik ответил, разве не это
В OnClick параметр Sender, а параметра Key нет. Нельзя ли поподробнее?
← →
Dimka Maslov © (2013-07-19 17:52) [6]OnKeyPress
← →
kuku (2013-07-19 18:09) [7]
> Dimka Maslov © (19.07.13 17:52) [6]
>
> OnKeyPress
Ага, только редактировать ничего не получится, если в
> OnKeyPress
я присвою Key:= 0;
← →
Германн © (2013-07-19 18:15) [8]Так ведь не каждому Кею присваивать 0 нужно, а только тому у которого нет своей Герды. :)
← →
Inovet © (2013-07-19 19:00) [9]Бедный, мой бедный, Кей.
Кто сделал тебя нулём?
Я снова отправлюсь в вей,
и вместе мы заживём.
← →
Anatoly Podgoretsky © (2013-07-20 11:05) [10]
> я присвою Key:= 0;
Не присвоишь, тип другой
← →
kuku (2013-07-20 11:33) [11]
> Не присвоишь, тип другой
Конечно не в лоб, а с преобразованием
← →
Dimka Maslov © (2013-07-21 19:21) [12]if Key = #13 then Key := #0
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2014.04.27;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.002 c
