起步软件技术论坛-X3

 找回密码
 立即注册
搜索
12
返回列表 发新帖
楼主: 新来小职员

【搞定】关于窗体调用的一系列问题[问题]**

[复制链接]
 楼主| 发表于 2007-11-20 21:28:30 | 显示全部楼层
不懂怎么用!按例子做,但是不知道少了什么就是编译不过.

1.jpg

26.34 KB, 下载次数: 270

回复 支持 反对

使用道具 举报

发表于 2007-11-21 08:58:42 | 显示全部楼层
dorun函数是在功能里面继承,不是在窗体里面。楼主写错地方了
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-11-21 11:11:47 | 显示全部楼层
哦,原来写错地方了...
如果是要在tabpage上显示倒底是要showmodel还是show?
那些需要注意的地方,都先告诉我先吧,不然问n次都搞不定,浪费时间啊。
回复 支持 反对

使用道具 举报

发表于 2007-11-21 11:47:29 | 显示全部楼层
如果是要在主界面上显示,可以不show窗体。只要把MainForm指定为您要显示的窗体就好了。然后inherited就会自动show主窗体。
回复 支持 反对

使用道具 举报

发表于 2007-11-21 13:14:28 | 显示全部楼层
下面是功能中的代码
=================
unit BDYGN;

interface

uses
  Business.System, Business.Model;

type
  TBDYGN = class(TFunc)
  private
    {private declarations}
  public
    {public declarations}
    procedure DoRun; override;
  end;

implementation

procedure TBDYGN.DoRun;
begin
  if Length(Parameters)=0 then
    MainFormName := 'MAINFORM'
  else
    MainFormName := 'CT1';
  inherited;
end;

end.
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-11-22 08:31:08 | 显示全部楼层
搞定!谢谢alang!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-7-1 04:32 , Processed in 0.047455 second(s), 15 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表