这段代码看不明白,请大家帮帮忙!
我是个初学者,下面的代码我有两个地方看不明白,请大家帮帮忙解释一下,先谢了。
interface
uses
Windows, Messages, SysUtils, Classes, Forms, AdPort;
const
Msg1 = WM_USER + 1;//在这里定义这个有什么用?
type
TMsgEvent = procedure( Sender : TObject; Msg : string) of object;//这个又是什么意思?
TExApdComp = class( TComponent)