Программирование. Форум !!! (comp.soft.prog.prog) : Рассылка : Subscribe.Ru

← Сентябрь 2006 →
	1	2	3
4	5	6	7	8 08.09.2006 02:16:38 08:50:34 12:53:45	9	10
11	12	13	14	15	16	17
18	19	20	21	22	23	24
25	26 26.09.2006 17:33:13 17:46:13 17:48:01 18:09:21 18:10:23 20:05:17 21:57:18 22:19:22	27	28	29	30

Re: delphi7

Hello portos_ua,

Tuesday, September 26, 2006, 5:34:58 PM, you wrote:

p> Всем привет, такой вопрос:
p> есть компонент tedit, при нажатии на enter в нем должна автоматом
p> щелкаться кнопка, написал:

p> procedure TForm3.Edit1KeyDown(Sender: TObject; var Key: Word;
p> Shift: TShiftState);
p> begin
p> if key=13 then form3.Button1.Click;
p> end;

p> все ок, только остался звук бум от нажатия ентера, как убрать?
p> Спасибо

Как убрать звук при нажатии Enter в Tedit

uses shellapi;
systemparametersinfo(spi_setbeep,0,nil,0); //выключить
systemparametersinfo(spi_setbeep,1,nil,0); //включить

Deni_S

2006-09-26 22:19:22 (#594585)

Re[4]: delphi7

Hello Andrey,

AY> Вы выясните, почему идёт этот бум. Всегда ли он.
попробывал, идет всегда, этот бум - это системный звук на нажатие
ентера в едите

AY> А ещё попробуйте обнуление поставить до обработки клика.
теже яй..а только вид сбоку :)

portos_ua

2006-09-26 21:57:18 (#594579)

Re[3]: delphi7

Здравствуйте, portos_ua.

Вы писали 26 сентября 2006 г., 18:11:39:

> Hello Andrey,

AY>> Попробуйте сделать так:

AY>> if key=13
AY>> then
AY>> begin
AY>> form3.Button1.Click;
AY>> key:=0;
AY>> end;

> непомогает

Вы выясните, почему идёт этот бум. Всегда ли он.
А ещё попробуйте обнуление поставить до обработки клика.

Andrey Yakushev 2006-09-26 20:05:17 (#594539)

Re[2]: delphi7

Hello Andrey,

AY> Попробуйте сделать так:

AY> if key=13
AY> then
AY> begin
AY> form3.Button1.Click;
AY> key:=0;
AY> end;

непомогает

portos_ua

2006-09-26 18:10:23 (#594505)

Re[2]: delphi7

Hello Алексей,

А> Попробуйте form3.button1.OnClick(Self);
непомогает

portos_ua

2006-09-26 18:09:21 (#594504)

Re: delphi7

Добрый день portos_ua,

Tuesday, September 26, 2006, 4:34:58 PM, вы писали:

portos_ua> procedure TForm3.Edit1KeyDown(Sender: TObject; var Key: Word;
portos_ua> Shift: TShiftState);
portos_ua> begin
portos_ua> if key=13 then form3.Button1.Click;
portos_ua> end;

portos_ua> все ок, только остался звук бум от нажатия ентера, как убрать?
portos_ua> Спасибо

Попробуйте form3.button1.OnClick(Self);

Алексей

2006-09-26 17:48:01 (#594489)

Re: delphi7

Здравствуйте, portos_ua.

Вы писали 26 сентября 2006 г., 17:34:58:

> Всем привет, такой вопрос:
> есть компонент tedit, при нажатии на enter в нем должна автоматом
> щелкаться кнопка, написал:

> procedure TForm3.Edit1KeyDown(Sender: TObject; var Key: Word;
> Shift: TShiftState);
> begin
> if key=13 then form3.Button1.Click;
> end;

> все ок, только остался звук бум от нажатия ентера, как убрать?

Попробуйте сделать так:

if key=13
then
begin
form3.Button1.Click;
key:=0;
end;

Andrey Yakushev 2006-09-26 17:46:13 (#594488)

delphi7

Всем привет, такой вопрос:
есть компонент tedit, при нажатии на enter в нем должна автоматом
щелкаться кнопка, написал:

procedure TForm3.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=13 then form3.Button1.Click;
end;

все ок, только остался звук бум от нажатия ентера, как убрать?
Спасибо

portos_ua

2006-09-26 17:33:13 (#594484)