我有一个窗口form1,我所有的程序都需要这个窗口,
其中只有label1何label2的属性需要改变,请问大家是做成什么控件,dll可以吗?
以方便我每一次只需要调用一下,
或者做成控件什么的,把那两个label的值作为控件的属性,只需改一下就好了,
而避免我来回复制窗口上的东西。
200分送上(两个相同的帖子),希望大家具体一点,因为我没有做过控件,非常感谢!!

解决方案 »

  1.   

    继承form1就可以了
    TForm2 = class(TForm1)
      

  2.   

    在Form1上点右键,选add to repository,然后随便取个名字,page选择forms,然后点ok就行。
    要用的时候在主菜单上选new-》other,选择forms,选里面的form1就新建了一个form1的副本。
      

  3.   

    举例如下:
              将TYutouComm组件注册到system组件板为了能把组件注册到Delphi中,需要用到 Register 过程,其中只需一行代码即可:  RegisterComponents(′System′, [TYutouComm]);  字串“System”是Delphi中的一个组件板,注册后在该组件板上可看到TYutouComm组件的图标。也可注册到其它的组件板如“Standard”、“Sample”等或自定义一个组件板。代码设计完成后,把程序单元(Unit)加到代码包中,编译安装代码包后就可以在用户应用程序设计中使用该组件了。代码包框架的生成可由Delphi的代码包生成向导实现
      

  4.   

    把你所需要的若干东东全部选择起来,然后点 Component->Create Component Template 把它们作为一个整体建立成一个控件,以后你只要在你所需要的地方将它放下来就可以了,你自己写的事件代码都可以包含进去的。
      

  5.   

    如果是同一个应用程序的话,只需在想引用form1的窗口上增加:
    uses form1;
    后就可以访问到form1上的任何属性或控件,如:
    form1.Caption:='改窗口标题';
    form1.Edit1.Text:='改文本框文字';
    form1.Label1.Caption:='该标签标题';
    ......
      

  6.   

    如果不在同一个应用程序的话,那么按照flyingkiller(大飞虫) 的方法做
      

  7.   

    將form1加到repository中﹐
    在Form1上点右键,选add to repository,然后取个名字(例如form1),page选择forms,然后点ok就行。
    要用的时候在主菜单上选new-》other,选择forms標簽,选里面的form1就新建了一个form1的副本。下面有三個選項﹐一個是copy(表示復制form1),一個是inherit(表示繼承form1),還有一個是use(表示直接使用form1).建議你選copy.
      

  8.   

    我个人认为最好的方法是jsandy(江苏安迪) 所说的
      

  9.   

    建议 flyingkiller(大飞虫) 的方法。
      

  10.   

    继承。 
    //////////////////////////
    TForm2 = class(TForm1)
    //////////////////////////
    我也同意,flyingkiller(大飞虫) 的做法!
      

  11.   

    我提供一个方法,重载窗体的构造函数,将两个字符串作为label的参数传入构造函数,这样就可以很方便的定义不同label的该窗体的变量了,如下:
    constructor Create(AOwner:TComponent;s1,s2:string);reintroduce;overload
    begin
     inherited Create(AOwner);
     label1.caption:=s1;
     label2.caption:=s2;
    end;
      

  12.   

    方法一
    将 THBSAbout 组件注册到 Standard 组件板把你所需要的若干东东全部选择起来(从Bevel到button全部)。
    然后点 Component->Create Component Template 把它们作为一个整体建立成一个控件注册到 Standard 组件板。
    以后只要在所需要的地方将它放下来就可以了,写的事件代码都可以包含进去的。缺点:不能包括窗体。窗体的规格为:
          width:311  height:262
          autosize:true position:toscreencenter
          bssingle 最小化最大化的按钮关掉方法二 1、下载窗体文件 Form  Pas2、打开delphi之后,File —〉Close All,然后 Open ,打开你所下载的窗体。3、在Form1上面,击右键,將 Form1 加到 repository中,具体步走为:
       在Form1上点右键 —〉add to repository,
       然后取个名字(例如Aboutus),page选择forms,选择一个ICO图标,然后点ok即可。4、使用的具体方法如下:
       在主菜单上选New —〉跳出项目选择框,
       选择Forms标签,
       选里面的Aboutus就新建了一个Aboutus的副本。
       下面有三个选项,一个是copy(表示复制Aboutus),一个是inherit(表示继承Aboutus),一个是use(表示直接使用Aboutus).
        建议选择copy.