我想在 FORM 中自己增加一個屬性,屬性的值我在程序運行時隨意改變,哪位高手幫幫忙呢?

Type
  TForm1 = Class(TForm)
    ...
    ...
  private
    MyVar1 : String;      public
    MyVar2 : Integer;      end;

在 private (只本 unit 用) 或 public (所有有 use 本 unit 的都可用) 裡 定義均可

Justmade先生: 可我想自定義的屬性能夠在 Object Inspector 中顯示出來呢 有辦法嗎?

Following is originally posted by Jeff Overcash(TeamB)    

引言: 1) Publish the property or event. 2) Add the Custom form to the Object repository. 3) Add the form to a package. 4) Add to the package the following procedure interface ... procedure Register; implementation uses dsgnIntf; ... procedure Register; begin RegisterCustomModule(TMyCustomForm, TCustomModule); end; 5) Create a new form that inherites from your custom form. You should now see the extra events and properties.

//引用 unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls; type   TForm1 = class(TForm)     Button1: TButton;     Button2: TButton;     procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);   private     { Private declarations }   public        { Public declarations }   end; var   Form1: TForm1; implementation uses unit2; {$R *.dfm}    procedure TForm1.Button1Click(Sender: TObject); begin Unit2.myvar:=application.Title ; Unit2.mymessage; end;    procedure TForm1.Button2Click(Sender: TObject); begin Unit2.myvar:='45654655'; Unit2.mymessage; end;    end.    //定义 unit Unit2; interface uses Dialogs;    procedure mymessage; var   myvar:string; implementation procedure mymessage; begin showmessage(myvar); end; end.    风花雪月 e梦情缘

------
风花雪月 e梦情缘