| Class TForm1 (unit Multimnp) |
TForm
| Constructors |
| Functions |
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure FormResize(Sender: TObject);
procedure LogMessage(devName: String; ThisEvent:TMyMidiEvent);
procedure MIDIInput1MidiInput(Sender: TObject);
procedure mnuExitClick(Sender: TObject);| Properties |
| Events |
| Variables |
File1 : TMenuItem;
lstLog : TListBox;
MainMenu1 : TMainMenu;
mnuExit : TMenuItem;
pnlColumnHeading : TPanel;
logItemMax : Integer;
MidiInControls : TList;| Constructors |
| Functions |
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
| Properties |
| Events |
| Variables |
File1 : TMenuItem;
lstLog : TListBox;
MainMenu1 : TMainMenu;
mnuExit : TMenuItem;
pnlColumnHeading : TPanel;
logItemMax : Integer;
MidiInControls : TList;