有人知道怎么在一个窗口中调用另一个窗口吗?(20分)

  • 主题发起人 主题发起人 小财神
  • 开始时间 开始时间

小财神

Unregistered / Unconfirmed
GUEST, unregistred user!
就是在父窗口中调用子窗口?
 
form2.showModal;
 
我试过了,好象不行!
 
uses
Form2;
 
我的是:cx.showModal;
他提示说未说明标识符"cx"?怎么回事呢?
 
在from1中调用form2:
Form2 := TForm2.Create(Application);
Form2.ShowModal;
Form2.Release;
 
uses
UnitName;
 
需要在前面加上
uses Form2;
 
我试过了,是不是这样(CX)是我的窗口的名字:
procedure Tbscc.N2Click(Sender: TObject);
begin

uses cx;
cx.showModal;

end;

end.
 
implementation
uses cx;
在implementation下面
 
implementation是什么意思啊?请告诉我吧!
 
叶枫, 你是ALEX吗?
 
implementation是执行的意思。
 
小财神:
您好!
您可以在您的主窗体的单元内第5行(包括空行)发现Uses(白色),它下面有一排或两排
乱七八糟的东西,您可以在他们的后面添加,添加的内容如下:
您先调出CX窗体,按F12,再按Ctrl+Home,您会在第一行发现两个单词,将后面那个写在
刚才教您的地方。
如果还有什么不明白,请写出Email地址。
此致
敬礼
leechange
 
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation
uses cx; //在这里加

{$R *.DFM}

end.
 
执行?把我搞糊涂了,不好意思,我是个初学者,对DELPH没有VF熟,所以请慢慢告诉我,这个执行在哪里找呢?
 
那form2.showModal;写在哪里呢?是在BEGIN里吗?
 
假设你有两个表单,第一个调用第二个窗口的,设为FORM1和FORM2
在FORM1中的最上面
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, unit2;
在FORM2中的下面
implementation
uses Unit1;

然后双击你的FORM1的按纽,写入
Form2.ShowModal;
也可以用
Form2.show;
就行了

 
它出现了一个错误提示,很长:
project Project1.exe raised exception class EInvalidOperation with message'Cannot make a visible window modal'.Process stopped.Use Step or Run to continue.
 
后退
顶部