Delphi一般形式：

type 
          TForm1 = class(TForm) 
            Button1: TButton; 
            procedure Button1Click(Sender: TObject); 
          private
          { Private declarations } 
          public 
          { Public declarations } 
          end;
字段 Button1  和過(guò)程 Button1Click  并沒(méi)有被明確地放到哪個(gè)可見(jiàn)性區(qū)域中。那么這時(shí)候它們的可見(jiàn)性按什么規(guī)則來(lái)確定呢？此時(shí)和編譯指令$M 密切相關(guān)。

    $M 用來(lái)控制編譯器是否給類(lèi)生成運(yùn)行時(shí)類(lèi)型信息。所以，在{$M+}狀態(tài)，Button1 和 Button1Click 被隱含指定到 published 域；在{$M-}狀態(tài)，則到 public 域。