Class TForm1 (unit MidiKeys1)

Inherits from

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);

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;



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;