weixin_42528089的博客

Delphi的按钮组建一共包含三种按钮组件，普通按钮（Button）、位图按钮（BitBtn）和快捷按钮（SpeedButton）。普通按钮：使用最多的是淡季时间OnClick。位图按钮：可以显示图片，Glyph 属性通过load加载图片，在Additional 选项卡中。快捷按钮：可以同时显示图像和文字，可以保持按下的状态，不同于普通按钮和位图按钮按下后立刻弹起来。是工具条设计的理想...

 while 循环unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Label1: TLabel; procedu...

一：function Pos(Substr: string; S: string): Integer;注解：该函数是查找元素第一次出现的位置。 1....  框图：   2 .....代码：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Contr...

转发：https://www.cnblogs.com/gameking/archive/2012/11/08/2760206.html

 首先form1有一个全局变量或者函数是在public下 然后form2的uses下引用form的单元名 这个时候就可以了1.设置框图2.code 2.1 form1的代码：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, ...

代码如下： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Label1: TLabel; Label2: ...

 GUI界面： 源代码： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Edit1: TEdit; B...

delphi分为过程和函数：delphi 过程以保留字procedure开始，没有返回值；函数以保留字function开始，有返回值。  一：  过程的框架：Procedure 过程名（[形参列表]）// 参数可选var //声明常量、变量或另一个过程或函数等begin 语句; end; 界面如图所示：运行前：代码如下：unit ...

由于delphi的过程比较简单，因此重点学习函数，函数中最难的是递归，本文通过实例来学习。  框图界面如下：    代码如下：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;...

运行delphi 7发现这个问题，总是不能解决。主要分类两步来解决：1：定义这个OpenDialog1: TOpenDialog;2：delphi 中有一个Dialogs 组件  最好是将每一个图标均放置在，Form1中这样用到那一个，就自然不同再定义呢：另外附带一点本文福利，这些在编写delphi程序中如果用到这些功能都需要定义：    OpenDialog1:...

在delphi 设计GUI的过程中，窗体通信是不可缺少的一部分。若想解决Form2调用Form1函数；本文是通过如下步骤实现：在Form1中建立公共函数，在var 下建立 procedure form2_form1(i:Integer); 在函数form2_form1(i:Integer)中调用Form1组件时 Form1.Edit1.text:='GHG'; 在Form2 中implem...

 计算器V1:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type TForm1 = class(TForm) Edit1: TEdit; E...

一：GUI 界面：         代码如下：unit Unit3_3;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, Buttons, CheckLst, StdCtrls, ExtCtrls;t...

 转载：https://www.cnblogs.com/shadow-wolf/p/6134290.html           https://blog.csdn.net/yyzzhc999/article/details/78089337?foxhandler=RssReadRenderProcessHandler

1：每一个组件都有个Parent属性(只有运行时才能看到)，也就是容纳改组件的容器。2：当需要放置多个组件时，shift选中组件是，想取消，则点击左边的鼠标既可。3：如果想运行一个时间可以自由改变大小的区域，可以用Splitter组件。4: 显示编辑多行文本用Memo组件。5：Delphi 可视化编程的一般步骤;设计窗体并将组件放入窗体，设置窗体与组件等对象的属性，在窗体与组件的时...

 1. Form1 控制Form2unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; ...

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton...

无论label的况怎么调整字体都显示不全， 但是字母和数字可以显示完全。如下图所示，图一是程序员想显示的字体，图二是实际的效果图一：     图二：     解决方法：换种字体就正常了，例如宋体，各种体。...

一：由于Mainmenu通常默认是置顶，如下图所示：二：因此Mianmenu想将顶部的菜单，向下移动一定的距离，单独的通过操作组件Mainmenu是不行的。因此可采用ToolBar+ControlBar+Mainmenu.具体步骤如下1.先用Mainmenu设置好自己需要的菜单，Form1 中menu选项中删掉Mainmenu。2.选择controlBar组件，将contorl...

 1.Edit边框不能输入任何信息，发现Edit 设置里面的Event是如下图所示： 2.修改后如下图所示，edit边框就能输入：

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; ...

ComboBox组件添加数字或者字符，方法一可以添加数字或者字符。而方法二只能添加数字方法一：在standard组件页当中，在对象监视器中有Items 属性栏，单击右边的...号。如图添加内容，点击ok。运行结果如下图所示：方法二：写代码解决https://blog.csdn.net/lovescjinbao/article/details/18054739  ...

  unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, ComCtrls;type TForm1 = class(TForm) Edit1: TEdit;...