Class TForm1 (unit Multimnp)

Inherits from

TForm

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.

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;



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;