Delphi Form1控制Form2 和文本显示

雨点打透心脏的1/2处 2022-04-17 07:17 180阅读 0赞

1. Form1 控制Form2

unit Unit1;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls;
    
    type
      TForm1 = class(TForm)
        Button1: TButton;
        Label1: TLabel;
        procedure Button1Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      Form1: TForm1;
    
    implementation
    uses Unit2;           //添加这个语句就可以控制Form2
    {$R *.dfm}
    
    procedure TForm1.Button1Click(Sender: TObject);
    begin
           Form1.Show;//Form1显示
           Form2.Show;//Form2显示
    end;
    
    end.

2 .edit 文本的的控制：

procedure TForm2.Button1Click(Sender: TObject);
    begin
       Edit1.Text:= 'HELLO';
       showmessage(Edit1.Text);
    end;
    
    procedure TForm2.Button2Click(Sender: TObject);
    begin
        Edit1.Text:= '';
        showmessage(Edit1.Text);
       // Form2.Hide;
    end;
    
    end.

发表评论取消回复

表情：

评论列表（有 0 条评论，180人围观）

还没有评论，来说两句吧...

相关阅读

相关 unload form1_Form1.Hide和Unload Me有什么区别？

unload form1 Hide and Unload are techniques in [Visual Basic][Visual_Basic] 6—VB.NET do

川长思鸟来/ 2022年12月06日 15:38/ 0 赞/ 137 阅读

相关 import和form ... import

两者的区别是import 库表示直接把库里面的所有东西都引入了 form … import 表示我可以从库里面引入我需要的函数就可以，当然我也可以全部引入![在这里插入图片

小灰灰/ 2022年10月06日 09:52/ 0 赞/ 185 阅读

相关 Tapestry5.1 form submit

void onActivate(String message) \{ System.out.println("another page is a

朴灿烈づ我的快乐病毒、/ 2022年07月12日 08:39/ 0 赞/ 131 阅读

相关 EFCore2.0@Xamarin.Forms

由于忙于Xamarin的书的创作很久没有和大家见面了，回到博客我会陆续更新一些最新的Xamarin技术，还有最近一直在努力的人工智能相关知识。话说csdn的博客改版了。总觉得变

男娘i/ 2022年05月26日 10:46/ 0 赞/ 117 阅读

相关 Form2 引用Form1中的函数

在delphi 设计GUI的过程中，窗体通信是不可缺少的一部分。若想解决Form2调用Form1函数；本文是通过如下步骤实现： 1. 在Form1中建立公共函数，在var

短命女/ 2022年04月22日 14:24/ 0 赞/ 137 阅读

相关 Delphi Form1控制Form2 和文本显示

1. Form1 控制Form2 unit Unit1; interface uses Windows, Messa

雨点打透心脏的1/2处/ 2022年04月17日 07:17/ 0 赞/ 181 阅读

相关 Form1 如何向Form2传递数据

1. 首先form1有一个全局变量或者函数是在public下 2. 然后form2的uses下引用form的单元名 3. 这个时候就可以了 1.设置框图 ![w

痛定思痛。/ 2022年04月15日 05:35/ 0 赞/ 237 阅读

相关 Form-Form表单

一、典型表单在 Form 组件中，每一个表单域由一个 Form-Item 组件构成，表单域中可以放置各种类型的表单控件，包括 Input、Select、Check

灰太狼/ 2022年03月31日 15:11/ 1 赞/ 589 阅读

相关 form提交--jquery.form.js

jquery.form.js 官网 http://www.malsup.com/jquery/form/ 先写一个简单的form，提交后在后台打印参数。

刺骨的言语ヽ痛彻心扉/ 2022年03月19日 14:19/ 0 赞/ 209 阅读

相关 Delphi中限制FORM的大小

　　使用过DELPHI的朋友都会注意到DELPHI本身最上面的窗口，　　当它极大时只占屏幕的一小部分，它是如何实现的呢，请看下面的说明：　　1)在FORM私有声明部分加

电玩女神/ 2021年11月29日 11:26/ 0 赞/ 192 阅读