社区
Delphi
帖子详情
Form
supershan
2000-01-07 12:15:00
在我工程里有三个Form,分别是Form1,Form2,Form3,Form1为主界面,
从菜单调出Form2,
在Form2上调出Form3,同时关掉Form2,在Form3上调出Form2,同时关掉Form3.
请回复!
...全文
162
5
打赏
收藏
Form
在我工程里有三个Form,分别是Form1,Form2,Form3,Form1为主界面, 从菜单调出Form2, 在Form2上调出Form3,同时关掉Form2,在Form3上调出Form2,同时关掉Form3. 请回复!
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
5 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
Venne
2000-01-07
打赏
举报
回复
为了简便起见,我在三个表单上分别放一个按钮,做这个效果。
//工程源文件
program Project1;
uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2},
Unit3 in 'Unit3.pas' {Form3};
{$R *.RES}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
Application.CreateForm(TForm3, Form3);
Application.Run;
end.
//--------------------------------------------------------
//Form1的文件
//--------------------------------------------------------
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2;
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
form2.show;
end;
end.
//--------------------------------------------------------
//Form2的文件
//--------------------------------------------------------
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm2 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
uses Unit3;
{$R *.DFM}
procedure TForm2.Button1Click(Sender: TObject);
begin
form3.show;
close;
end;
end.
//----------------------------------------
//FORM3的文件
//------------------------------------------
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm3 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
implementation
uses Unit2;
{$R *.DFM}
procedure TForm3.Button1Click(Sender: TObject);
begin
form2.show;
close;
end;
end.
startcn
2000-01-07
打赏
举报
回复
这个很容易解决!
在FORM1中要调用FORM2,加入‘form2.show'即可!
要在Form2上调出Form3,同时关掉Form2,只需在FORM2中加入‘form3.show',同时在
FORM3中的onShow事件中加入‘IF FORM2.ACTIVE THEN FORM2.CLOSE'就可以了!
同理,要在Form3上调出Form2,同时关掉Form3,也只要在FORM3中加入‘form2.show',同时在FORM2中的onShow事件中加入‘IF FORM3.ACTIVE THEN FORM3.CLOSE'就可以了
supershan
2000-01-07
打赏
举报
回复
startcn:
sorry!由于我急于编程所以随便找一个一试如可以就给分了,下一次送你一些分可以吧!
startcn
2000-01-07
打赏
举报
回复
为什么不给我分数?
我的答案和他们是一样的吧
不是稀罕你那10分,只是觉得太没道理!
zyb
2000-01-07
打赏
举报
回复
form3.onshow中加入form2.close
form2.onshow中加入form3.close
jquery-
form
.js 源码
异步提交表单和上传文件jquery-
form
.js
vue
form
表单数据提交
利用v-model能比较便捷地上传用户信息的数据,不用一个个参数地拼接。直接在data根据要传的字段定义一个对象, 再利用双向绑定得到值。下面写了传json格式跟
form
Data格式的两种情况,根据实际参考 <template> <div class="from_box"> <
form
action=""> <input ty......
HTTP协议之multipart/
form
-data请求分析
无意中发现了一个巨牛的人工智能教程,忍不住分享一下给大家。教程不仅是零基础,通俗易懂,而且非常风趣幽默,像看小说一样!觉得太牛了,所以分享给大家。点这里可以跳转到教程。 首先来了解什么是multipart/
form
-data请求: 根据http/1.1 rfc 2616的协议规定,我们的请求方式只有OPTIONS、GET、HEAD、POST、PUT、DELETE、TRACE等,那为为何我们还...
关于vue.js element ui 表单验证 this.$refs[
form
Name].validate()的问题
来自”和“小编的小提示:首先打印一下this.$refs[
form
Name],检查是否拿到了正确的需要验证的
form
。其次在拿到了正确的
form
后,检查该
form
上添加的表单验证是否正确,需要注意的点有:1.使用此方法前检查prop一定必须要写在<el-
form
-item>上面,写在里面的input上或者其他任何地方都不行(el-
form
-item prop属性绑定)2.el-
form
...
post使用
form
-data和x-www-
form
-urlencoded的本质区别
一是数据包格式的区别,二是数据包中非ANSCII字符怎么编码,是百分号转码发送还是直接发送 一、application/x-www-
form
-urlencoded 1、它是post的默认格式,使用js中URLencode转码方法。包括将name、value中的空格替换为加号;将非ascii字符做百分号编码;将input的name、value用‘=’连接,不同的input之间用‘&’连接...
Delphi
5,392
社区成员
262,731
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章