首页 新闻 论坛 群组 Blog 文档 下载 读书 Tag 网摘 搜索 .NET Java 游戏 视频 人才 外包 培训 数据库 书店 程序员
中国软件网
欢迎您:游客 | 登录 注册 帮助
    • 简单问题,近来看看 [已结贴,结贴人:fjtxwd]
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • fjtxwd
    • 等级:
    • 可用分等级：
    • 总技术专家分：
    • 总技术专家分排名：
    • 揭帖率：
    发表于：2008-08-21 09:27:15 楼主
    有2个form,form1中有button1,button2,form2中有label1,
    点button1和button2都能调出form2,
    点button1调出的form2,label1.caption显示为'button1'
    点button2调出的form2,label1.caption显示为'button2'
    如何实现?
    20  修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • liangqingzhi
    • 等级:
    • 可用分等级：
    • 总技术专家分：
    • 总技术专家分排名：

    • 3

      10

      6
    发表于：2008-08-21 09:34:261楼 得分:20
    Button的OnClick事件里写：

    Form2.Label1.Caption := TButton(Sender).Name;
    Form2.Show;
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • dyzhong
    • 等级:
    • 可用分等级：
    • 总技术专家分：
    • 总技术专家分排名：
    发表于：2008-08-21 12:01:252楼 得分:0
    可以结贴了
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • dongyonggan
    • 等级:
    • 可用分等级：
    • 总技术专家分：
    • 总技术专家分排名：
    发表于：2008-08-21 14:37:263楼 得分:0
    两个ButtonClick事件里都写，注意在implementation下引用Unit2
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • fjtxwd
    • 等级:
    • 可用分等级：
    • 总技术专家分：
    • 总技术专家分排名：
    发表于：2008-08-21 14:51:084楼 得分:0
    Button的OnClick事件里写：
    Application.CreateForm(TForm2, Form2);
    if TButton(Sender).name='button1' then
    form2.label1.Caption:='1'
    else if TButton(Sender).name='button2' then
    form2.label1.Caption:='2';
    form2.Show;

    这样写效果出不来,要怎么样改 ?

    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • BT_D_Deity
    • 等级:
    • 可用分等级：
    • 总技术专家分：
    • 总技术专家分排名：
    发表于：2008-08-22 01:41:305楼 得分:0
    学习中！
    我想这程序显示用不到if
    用form2的显示去判断form1的操作
    行不通吧？
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    • jin20000
    • 等级:
    • 可用分等级：
    • 总技术专家分：
    • 总技术专家分排名：
    发表于：2008-08-22 09:55:146楼 得分:0
    引用 1 楼 liangqingzhi 的回复:
    Button的OnClick事件里写：

    Form2.Label1.Caption := TButton(Sender).Name;
    Form2.Show;

    引用 2 楼 dyzhong 的回复:
    可以结贴了
    修改 删除 举报 引用 回复
    网站简介－广告服务－网站地图－帮助－联系方式－诚聘英才－English－ 问题报告
    北京创新乐知广告有限公司 版权所有 京 ICP 证 070598 号
    世纪乐知(北京)网络技术有限公司 提供技术支持
    Copyright © 2000-2008, CSDN.NET, All Rights Reserved