Class TForm1 (unit Multimnp) |
Inherits from
TForm
procedure FormClose(Sender: TObject; var Action: TCloseAction);
If there are currently more items than the max, remove them
otherwise the list will have scrollbars when resized
procedure FormCreate(Sender: TObject);
Event was dynamically created by GetMidiEvent so must
free it here
procedure FormResize(Sender: TObject);
Create and open one MIDI input control for each installed MIDI input device
procedure LogMessage(devName: String; ThisEvent:TMyMidiEvent);
procedure MIDIInput1MidiInput(Sender: TObject);
Logging MIDI messages with a Windows list box is rather slow and ugly,
but it makes the example very simple.
procedure mnuExitClick(Sender: TObject);
This is not strictly necessary since the objects close themselves
when the form containing them is destroyed
File1 : TMenuItem;
lstLog : TListBox;
MainMenu1 : TMainMenu;
mnuExit : TMenuItem;
pnlColumnHeading : TPanel;
logItemMax : Integer;
MidiInControls : TList;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
If there are currently more items than the max, remove them
otherwise the list will have scrollbars when resized
procedure FormCreate(Sender: TObject);
Event was dynamically created by GetMidiEvent so must
free it here
procedure FormResize(Sender: TObject);
Create and open one MIDI input control for each installed MIDI input device
procedure LogMessage(devName: String; ThisEvent:TMyMidiEvent);
procedure MIDIInput1MidiInput(Sender: TObject);
Logging MIDI messages with a Windows list box is rather slow and ugly,
but it makes the example very simple. If you need a faster and less
flickery log you could port the rest of Microsoft's MIDIMON.C example.
procedure mnuExitClick(Sender: TObject);
This is not strictly necessary since the objects close themselves
when the form containing them is destroyed
File1 : TMenuItem;
lstLog : TListBox;
MainMenu1 : TMainMenu;
mnuExit : TMenuItem;
pnlColumnHeading : TPanel;
logItemMax : Integer;
MidiInControls : TList;