1: Structure Unit Unit1; Interfaceuses Windows, Messages, Sysutils, Classes, Graphics, Controls, Forms, Dialogs, Stdctrls;
TYPE TFORM1 = Class (TFORM) Label1: TLABEL; Private {private declarations}
Var Form1: TFORM1; G_Hellostr: String = 'Hello, I am Michael!';
Procedure Sayello (MSG: String); // **********************************************************输 输 部分 部分 i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i
{$ R * .dfm}
Procedure Sayhello (MSG: String); Begin ShowMessage (MSG); END;
{The Following Call Registers The Addin with the Application. Once This Occurs The Application Create Instances of this form.} // ***************************************** ******************************* Initialization // Register part of RegisterClass (TFORM1); // ******* ******************************************************* *.
