| Class TForm1 (unit MidiKeys1) |
TForm
For MIDI you must use the mmsystem
| Constructors |
| Functions |
procedure Button10Click(Sender: TObject);
procedure Button11Click(Sender: TObject);
procedure Button12Click(Sender: TObject);
procedure Button13Click(Sender: TObject);
procedure Button14Click(Sender: TObject);
procedure Button15Click(Sender: TObject);
procedure Button16Click(Sender: TObject);
procedure Button17Click(Sender: TObject);
procedure Button18Click(Sender: TObject);
procedure Button19Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button20Click(Sender: TObject);
procedure Button21Click(Sender: TObject);
procedure Button22Click(Sender: TObject);
procedure Button23Click(Sender: TObject);
procedure Button24Click(Sender: TObject);
procedure Button25Click(Sender: TObject);
procedure Button26Click(Sender: TObject);
procedure Button27Click(Sender: TObject);
procedure Button28Click(Sender: TObject);
procedure Button29Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button30Click(Sender: TObject);
procedure Button31Click(Sender: TObject);
procedure Button32Click(Sender: TObject);
procedure Button33Click(Sender: TObject);
procedure Button34Click(Sender: TObject);
procedure Button35Click(Sender: TObject);
procedure Button36Click(Sender: TObject);
procedure Button37Click(Sender: TObject);
procedure Button38Click(Sender: TObject);
procedure Button39Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button40Click(Sender: TObject);
procedure Button41Click(Sender: TObject);
procedure Button42Click(Sender: TObject);
procedure Button43Click(Sender: TObject);
procedure Button44Click(Sender: TObject);
procedure Button45Click(Sender: TObject);
procedure Button46Click(Sender: TObject);
procedure Button47Click(Sender: TObject);
procedure Button48Click(Sender: TObject);
procedure Button49Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button50Click(Sender: TObject);
procedure Button51Click(Sender: TObject);
procedure Button52Click(Sender: TObject);
procedure Button54Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure PlayMidi(Note,Instrument,Velocity,Channel,Duration : byte );
procedure SpinEdit1Change(Sender: TObject);| Properties |
| Events |
| Variables |
Button1 : TButton;
Button10 : TButton;
Button11 : TButton;
Button12 : TButton;
Button13 : TButton;
Button14 : TButton;
Button15 : TButton;
Button16 : TButton;
Button17 : TButton;
Button18 : TButton;
Button19 : TButton;
Button2 : TButton;
Button20 : TButton;
Button21 : TButton;
Button22 : TButton;
Button23 : TButton;
Button24 : TButton;
Button25 : TButton;
Button26 : TButton;
Button27 : TButton;
Button28 : TButton;
Button29 : TButton;
Button3 : TButton;
Button30 : TButton;
Button31 : TButton;
Button32 : TButton;
Button33 : TButton;
Button34 : TButton;
Button35 : TButton;
Button36 : TButton;
Button37 : TButton;
Button38 : TButton;
Button39 : TButton;
Button4 : TButton;
Button40 : TButton;
Button41 : TButton;
Button42 : TButton;
Button43 : TButton;
Button44 : TButton;
Button45 : TButton;
Button46 : TButton;
Button47 : TButton;
Button48 : TButton;
Button49 : TButton;
Button5 : TButton;
Button50 : TButton;
Button51 : TButton;
Button52 : TButton;
Button54 : TButton;
Button6 : TButton;
Button7 : TButton;
Button8 : TButton;
Button9 : TButton;
ComboBox1 : TComboBox;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Panel1 : TPanel;
Panel2 : TPanel;
Panel3 : TPanel;
SpinEdit1 : TSpinEdit;| Constructors |
| Functions |
procedure Button10Click(Sender: TObject);
procedure Button11Click(Sender: TObject);
procedure Button12Click(Sender: TObject);
procedure Button13Click(Sender: TObject);
procedure Button14Click(Sender: TObject);
procedure Button15Click(Sender: TObject);
procedure Button16Click(Sender: TObject);
procedure Button17Click(Sender: TObject);
procedure Button18Click(Sender: TObject);
procedure Button19Click(Sender: TObject);
procedure Button1Click(Sender: TObject);All of the buttons that make up the keyboard...
procedure Button20Click(Sender: TObject);
procedure Button21Click(Sender: TObject);
procedure Button22Click(Sender: TObject);
procedure Button23Click(Sender: TObject);
procedure Button24Click(Sender: TObject);
procedure Button25Click(Sender: TObject);
procedure Button26Click(Sender: TObject);
procedure Button27Click(Sender: TObject);
procedure Button28Click(Sender: TObject);
procedure Button29Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button30Click(Sender: TObject);
procedure Button31Click(Sender: TObject);
procedure Button32Click(Sender: TObject);
procedure Button33Click(Sender: TObject);
procedure Button34Click(Sender: TObject);
procedure Button35Click(Sender: TObject);
procedure Button36Click(Sender: TObject);
procedure Button37Click(Sender: TObject);
procedure Button38Click(Sender: TObject);
procedure Button39Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button40Click(Sender: TObject);
procedure Button41Click(Sender: TObject);
procedure Button42Click(Sender: TObject);
procedure Button43Click(Sender: TObject);
procedure Button44Click(Sender: TObject);
procedure Button45Click(Sender: TObject);
procedure Button46Click(Sender: TObject);
procedure Button47Click(Sender: TObject);
procedure Button48Click(Sender: TObject);
procedure Button49Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button50Click(Sender: TObject);
procedure Button51Click(Sender: TObject);
procedure Button52Click(Sender: TObject);
procedure Button54Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure PlayMidi(Note,Instrument,Velocity,Channel,Duration : byte );
procedure SpinEdit1Change(Sender: TObject);Check to see if any MIDI devices exist...
| Properties |
| Events |
| Variables |
Button1 : TButton;
Button10 : TButton;
Button11 : TButton;
Button12 : TButton;
Button13 : TButton;
Button14 : TButton;
Button15 : TButton;
Button16 : TButton;
Button17 : TButton;
Button18 : TButton;
Button19 : TButton;
Button2 : TButton;
Button20 : TButton;
Button21 : TButton;
Button22 : TButton;
Button23 : TButton;
Button24 : TButton;
Button25 : TButton;
Button26 : TButton;
Button27 : TButton;
Button28 : TButton;
Button29 : TButton;
Button3 : TButton;
Button30 : TButton;
Button31 : TButton;
Button32 : TButton;
Button33 : TButton;
Button34 : TButton;
Button35 : TButton;
Button36 : TButton;
Button37 : TButton;
Button38 : TButton;
Button39 : TButton;
Button4 : TButton;
Button40 : TButton;
Button41 : TButton;
Button42 : TButton;
Button43 : TButton;
Button44 : TButton;
Button45 : TButton;
Button46 : TButton;
Button47 : TButton;
Button48 : TButton;
Button49 : TButton;
Button5 : TButton;
Button50 : TButton;
Button51 : TButton;
Button52 : TButton;
Button54 : TButton;
Button6 : TButton;
Button7 : TButton;
Button8 : TButton;
Button9 : TButton;
ComboBox1 : TComboBox;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Panel1 : TPanel;
Panel2 : TPanel;
Panel3 : TPanel;
SpinEdit1 : TSpinEdit;