| ← Сентябрь 2006 → | ||||||
|
1
|
3
|
|||||
|---|---|---|---|---|---|---|
|
4
|
5
|
6
|
7
|
10
|
||
|
11
|
12
|
13
|
14
|
15
|
16
|
17
|
|
18
|
19
|
20
|
24
|
|||
|
25
|
30
|
|||||
За последние 60 дней ни разу не выходила
Сайт листа:
http://codeguru.ru
Открыт:
21-09-2003
Пре-модерация: Нет
Адрес для писем в лист: comp.soft.prog.prog-list@subscribe.ru
Адрес
модератора: comp.soft.prog.prog-owner@subscribe.ru
Всем привет, такой вопрос:
есть компонент tedit, при нажатии на enter в нем должна автоматом
щелкаться кнопка, написал:
procedure TForm3.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=13 then form3.Button1.Click;
end;
все ок, только остался звук бум от нажатия ентера, как убрать?
Спасибо
Здравствуйте, portos_ua.
Вы писали 26 сентября 2006 г., 18:11:39:
Вы выясните, почему идёт этот бум. Всегда ли он.
А ещё попробуйте обнуление поставить до обработки клика.
Hello Andrey,
попробывал, идет всегда, этот бум - это системный звук на нажатие
ентера в едите
теже яй..а только вид сбоку :)
Hello portos_ua,
Tuesday, September 26, 2006, 5:34:58 PM, you wrote:
Как убрать звук при нажатии Enter в Tedit
uses shellapi;
systemparametersinfo(spi_setbeep,0,nil,0); //выключить
systemparametersinfo(spi_setbeep,1,nil,0); //включить
Здравствуйте, portos_ua.
Вы писали 26 сентября 2006 г., 17:34:58:
Попробуйте сделать так:
if key=13
then
begin
form3.Button1.Click;
key:=0;
end;