Форум: "Основная";
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];
ВнизКак заставить TEdit не генерить звуковой сигнал при включенном обработчике нажатий клавиш. Найти похожие ветки
← →
panov (2001-12-18 15:26) [13]Попробуй вот так:
procedure TfDocEdit.FormKeyPress(Sender: TObject; var Key: Char);
begin
if (Key = #27) then
begin
Key:=#0;
if (fDocEdit.ActiveControl is TEdit) then
begin
TEdit(fDocEdit.ActiveControl).Text := vPrevValue;
TEdit(fDocEdit.ActiveControl).Modified := False;
end;
end;
if (Key = #13) then
begin
Key:=#0;
Perform(WM_NEXTDLGCTL,0,0);
end;
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.006 c