Текущий архив: 2005.09.25;
Скачать: CL | DM;
Вниз
Как убрать звук при нажатии Enter а в TEdit e. Найти похожие ветки
← →
Darkwing © (2005-08-30 08:42) [0]Я помню что как-то как, но он все равно брякает
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = 13 then DoSomething...
Key := 0;
end;
← →
злобная танька (2005-08-30 08:45) [1]OnKeyPressed
← →
Anatoly Podgoretsky © (2005-08-30 09:48) [2]Сделай кнопку по умолчанию, будет профессионально.
← →
capkoh © (2005-08-30 13:37) [3]По-моему, это было в FAQ. Но, вот решение:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then Key := #0;
end;
Страницы: 1 вся ветка
Текущий архив: 2005.09.25;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.056 c
