Как обратиться к кнопке backspace?

@stasyano · Регистрация: 13.09.2009

Author24 — интернет-сервис помощи студентам

Делаю тест скорости печатания текста. Необходимо выделять красным неправильно введенный символ ( эземпляр текста в ричэдите втором) , но если нажатая клавиша является бэкспейсом ( я же буду с помощью нее стирать уже неправильно введенные символы), то счетчик ошибок label2.caption не увеличивать на единицу

Delphi

procedure TForm5.RichEdit1KeyPress(Sender: TObject; var Key: Char);
begin
RichEdit1.SelAttributes.Color:=clBlack;
if key <> RichEdit2.Lines[0][j0] then
begin
RichEdit1.SelAttributes.Color:=clRed;
PlaySound('N:\music\Запись006.wav', 0, SND_ASYNC);
 
Label2.Caption:=inttostr(strtoint(Label2.Caption)+1);end else
j0:=j0+1;
end;

@Romantik_FM · 06.02.2011, 18:11

stasyano, код клавиши #08 вроде у него

@Puporev · 06.02.2011, 18:57

Delphi

1	if (key <> RichEdit2.Lines[0][j0])and(key<>#8) then

@Ama · 06.02.2011, 19:10

или же попробуй if (key <> RichEdit2.Lines[0][j0]) and (Ord(key) <> VK_BACK) then....

@stasyano · 06.02.2011, 20:34 **[ТС]**

Error: Operator not applicable to this operator type
это если в иф вписывать два условия.
а так 2 ифа , все работает, пасиб всем

@Puporev · 06.02.2011, 20:36

Сообщение от stasyano

Operator not applicable to this operator type

Скобки значит упустили, внимательнее нужно...

@stasyano · 06.02.2011, 20:44 **[ТС]**

и еще раз спасибо

пользуясь случаем, хочу спросить по другой теме
я оформлял звуковым сопровождением пару кнопок, прописывал следующий код:

Delphi

1	PlaySound('N:\music\Запись006.wav', 0, SND_ASYNC);

Вопрос: что значит последние два параметра функции и как сделать ее более универсальной, т.е. чтобы на любом компьютере находил нужный звуковой файл? Путь то на разных компьютерах будет разный к файлу=(
для изображений есть imagelist, а для этого?)

@Kovax · 07.02.2011, 03:12

Сообщение от stasyano

и еще раз спасибо

пользуясь случаем, хочу спросить по другой теме
я оформлял звуковым сопровождением пару кнопок, прописывал следующий код:

Delphi

1	PlaySound('N:\music\Запись006.wav', 0, SND_ASYNC);

Вопрос: что значит последние два параметра функции и как сделать ее более универсальной, т.е. чтобы на любом компьютере находил нужный звуковой файл? Путь то на разных компьютерах будет разный к файлу=(
для изображений есть imagelist, а для этого?)

Второй параметр (0) используется в случае, когда звук берется из ресурса, поскольку мы этого делать не будем, то можно этот параметр задавать равным 0 или nil.
Последний параметр определяет, как будет воспроизводиться звук (режим воспроизведения).
SND_ASYNC - Звук воспроизводится асинхронно и функция возвращается сразу же после начала воспроизведения. Чтобы прекратить воспроизведение нужно вызвать функцию PlaySound с параметром pszSound, равным 0.

@Romantik_FM 324 / 316 / 84 Регистрация: 03.03.2010 Сообщений: 1,364
	06.02.2011, 18:11	2
	stasyano, код клавиши #08 вроде у него 1

@Ama 18 / 6 / 2 Регистрация: 01.06.2010 Сообщений: 71
	06.02.2011, 19:10	4
	или же попробуй if (key <> RichEdit2.Lines[0][j0]) and (Ord(key) <> VK_BACK) then.... 1

@stasyano 2 / 2 / 1 Регистрация: 13.09.2009 Сообщений: 132
	06.02.2011, 20:34 [ТС]	5
	Error: Operator not applicable to this operator type это если в иф вписывать два условия. а так 2 ифа , все работает, пасиб всем 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	06.02.2011, 20:36	6
	Сообщение от stasyano Operator not applicable to this operator type Скобки значит упустили, внимательнее нужно... 1

	07.02.2011, 03:12