Синтезатор на Delphi. Проблема с непослушными клавишами

[Dancewithevil]

Доброго времечка. Ребята есть вопрос по созданию синтезатора. Я столкнулся вот с такой проблемой:
При привязке клавиш к кнопкам, обнаружил, что когда я выставляю значение, допустим:

...
procedure TMainForm.FormKeyPress(Sender: TObject; var Key: Char);
if key=1 then no:=56; // no - integer тип нота всё объявил как положено в 
//переменных
if key=2 then no:=58 ;
if key=3 then no:=60 ;
if key=4 then no:=62 ;
if key=5 then no:=64 ;
if key=6 then no:=68;
if key=7 then no:=70 ;
if key=8 then no:=72 ;
if key=9 then no:=74 ;

KeyPreview я в трушку поставил. С миди сделал всё, т.е вопросов про него нет, но когда я нажимаю клавишу 1 всё звучит хорошо, и после нажимаю клавишу тильду допустим, которую я НЕ ОПИСАЛ, повторяется звук последней клавиши. Что это за ошибка?
Я понял так, что если мы не описали клавишу, автоматом no:=0, а после когда нажал описанную клаву, неописанная просто обезьяничает эту нотку.
Подозреваю дело в отправке миди по нажатии на клаву:

...
procedure TMainForm.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
 midimsg := $90 + ((no) * $100) + (127 * $10000) + 0;
 midiOutShortMsg (midi, midimsg); // этот код я не понял особенно с $90 и $10000

То ли дело ещё в том, что мы превью ставим при создании формы, т.е автоматически делаем доступными ВСЕ клавиши. А как забацать только для нужных?
-----
И ещё как мне сделать так ,чтобы играли клавиши Z X C V B и т.д вместо противных 1 2 3 4...
Я описывал коды клавиш в процедуре FormKeyPress
и в десятичном, и в символьном ... хотелось бы чтобы показали как грамотно всё делать.)
Тема очень интересная, и думаю, что каждый может хоть что-нибудь предложить, посоветовать.) Я только учусь, стараюсь как могу.)
Заранее спасибо, буду благодарен за ценную информацию.)

[Terran]

В общем ориентируйтесь на переменную var Key: Word;.

Procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);

При нажатии на клавишу в этой переменной находится код нажатой клавиши и потом сравнивайте его с нужным Вам кодом.

И ещё как мне сделать так ,чтобы играли клавиши Z X C V B и т.д вместо противных 1 2 3 4...

Аналогично как я писал выше. К примеру:

Procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
Begin
If Key = 90 Then
//...
End;

[856100]

Я понял так, что если мы не описали клавишу, автоматом no:=0

А на основании чего вы так поняли?
в начале процедуры FormKeyPress обнулите N.

[Dancewithevil]

Спасибо за информацию, вот покопавшись в интернетном мусоре нашёл это:

Клавиатура копма используется как клавиатура пианино, реализуется это так:

procedure TForm2.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (key = 69) and not (KeyQAlreadyPressed) then
begin 
form2.SpeedButton4.Down:=true;
KeyQAlreadyPressed := True;
midimsg:=$7f3090;
midioutshortmsg(hmidi_out,midimsg);
end;
end;


procedure TForm2.FormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (key = ord(69)) then
begin
form2.SpeedButton4.Down:=false;
KeyQAlreadyPressed := False;
midimsg:=$7f3080;
midioutshortmsg(hmidi_out,midimsg);
end;
end;

Впринципе ход мне ясен, но почему-то код не работает, клавиша не реагирует никак.. Превью стоит, KeyQAlreadyPressed в глобальной описал, как булеановскую, возможно где-то я ошибся.
И ещё какой из этих способов наиболее оптимальный?

Я понял так, что если мы не описали клавишу, автоматом no:=0

ну я понял это, когда запустил программу и попробывал нажать клавишу неописанную, звук был такой хрипущий, что я и подумал, что это 0. Возможно ошибаюсь.)

[Terran]

На мой взгляд, чтобы Вам не путаться напишите отдельную функцию или процедуру воспроизведения файлов и потом вызывайте её из обработчиков событий

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
//
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);

Проверку можете делать через Case.

[Dancewithevil]

А вы часом не знаете что это за штука такая?) $7f3080 и $7f3090?

У меня ещё проблемы... Мне надо зажать две клавиши и более одновременно, больше всего в этом деле понравилась SpeedButton, описываю путём KeyDown и KeyUp, компилирую, запускаю нажимаю, всё работает. Когда я в другой запускаю, нажимаю две ... А она сначала зажмётся одна, потом вторая с отстованием... Как бы этого можно было избежать?

[Terran]

А вы часом не знаете что это за штука такая?) $7f3080 и $7f3090?

Это обычные числа записанные в 16-теричной системе счисления.

Мне надо зажать две клавиши и более одновременно

Используйте функции через которые можете точно узнать какие клавиши нажаты (GetKeyboardState,GetAsyncKeyState, GetKeyState). Для нажатия кнопок используйте SpeedButton.

[Dancewithevil]

Уважаемый Terran а вы согли бы привести пример, а то не догнал.)

[Stilet]

покопавшись в интернетном мусоре нашёл это:

Глуповатый ты код нашел.

и после нажимаю клавишу тильду допустим, которую я НЕ ОПИСАЛ, повторяется звук последней клавиши. Что это за ошибка?

Все очень просто. Ты проверяешь в FormKeyPress нажатие клавиши но вдобавок у тебя описано еще и FormKeyDown где проверки нет.
Она будет срабатывать всегда судя по коду.
Рекомендую переместить все проверки в FormKeyDown а про FormKeyPress забыть.

как мне сделать так ,чтобы играли клавиши Z X C V B

в OnKeyDown

if key=ord('Z') then ...

[Dancewithevil]

Вроде бы в основном разобрался, но с двумя клавишами так не получилосЬ?
и поподробней объяснить с (GetKeyboardState,GetAsyncKeyState, GetKeyState). Как их правильно описывай, какой формат и т.д
procedure TMainForm.FormKeyDown(Sender: TObject; var Key: какую перененную;
Shift: TShiftState);