Delphi 官方源码示例

2020

04-08

AutoPopup(Delphi)描述本示例使用一个弹出菜单。当您单击鼠标按钮时,将在您单击鼠标的地方出现弹出菜单。代码 procedure TForm1.FormCreate(Sender: TObject);
begin
 Popup...

2020

04-08

描述AutoSize 属性可以使标签长度发生变化,下面的代码也可以使标签控件的大小保持不变。因此,当您单击按钮时,标签的标题可能太长而无法在标签中显示:点击后:代码 procedure TForm1.Button1Click(Sender:...

2020

04-05

描述此应用程序展示了如何使用Application变量。该应用程序还使用Screen变量来显示有关该应用程序在其中运行的屏幕的一些信息。代码 unit Unit1;

interface

uses
 Winapi.Windows, Wi...

2020

04-05

描述该示例代码向MyCustInfo数据追加一条记录。注意,有时候会添加一些空值,但是对于数组参数最后的空值,(例如,在Field3字段之后),可以没有值(Null)。根据表的索引,InsertRecord的行为有所不同。代码 proced...

2020

04-05

描述一个复选框的示例。这个复选框会有三个状态。程序运行时,会选中该复选框。当用户单击它时,未选中该复选框。再次单击它,复选框将变灰。代码 procedure TForm1.FormCreate(Sender: TObject);
begin...

2020

04-05

本站xe10.2.3亲测。描述下面的示例演示在Character单元中使用一些高级方法。编辑框被设置为只允许2个unicode字符。代码 unit Unit1;

interface

uses
  System.Character, T...

2020

04-04

描述本示例演示了使用ADO来实现连接数据库。该示例要在窗体上放置一个TDBGrid。代码 procedure TForm2.FormCreate(Sender: TObject);
const
 { 连接字符串 }
 ConnStrin...

2020

04-04

描述下面的示例将新项添加到Treeview控件中所选的项的子项目列表中。新项将首先添加到子项目列表中。新项的标题为:“ New Item”。TBitmap对象将附加到新项上。代码 procedure TForm1.Button1Click(...

2020

04-04

描述窗体上需要放置一个TPopupActionBar组件。下面的代码会创建一个动作管理器组件(actionmanagercomponent),并为其某些属性分配一个图像列表。然后,把菜单并将其分配给窗体的PopupMenu属性。这时,右键单...

2020

04-04

描述本示例,要求窗体上放置一个TPageControl,另外,还必须通过右键单击并选择“New Page”将页面添加到TPageControl。该示例代码允许您通过选择ComboBox项来选择ActivePage属性。创建窗体时,Combo...

2020

04-04

描述在窗体上放置一个TTimer对象,然后在OnTimer事件中设置事件为Timer1Timer。再放其它控件放在窗体上,下面的事件代码,把焦点控件每100毫秒向右移动一个像素。代码 procedure TForm1.Timer1Timer...
联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678