常用DELPHI控件属性事件设置说明 常用DELPHI控件属性设置说明目录TForm Class TPanel组件 TToolBar Class TToolButton Class TTimer Class TADOConnection Class TADOQuery Class TADODataSet Class TDBGrid Class TADOStoredProc Class TButton Class TBitBtn Class TComboBox Class TStaticText

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if not (key in [ '.',#8]) then key:=#0; //只能输入小数点end; procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if not (key in [ ' 0'..'9',#8]) then key:=#0; //只能输入数字en

Delphi StringGrid常用属性和常用操作 StringGrid组件用于建立显示字符串的网格,与电子表格相似.它可使表格中的字符串和相关对象操作简单化.StringGrid组件提供了许多可控制网格外观念的属性,以及利用表格的结构响应用户操作的事件和方法.StringGrid具有关联对象与网格中的每个字符串的作用,这些对象为用户封装了字符串表示的信息或行为. 一.Delphi StringGrid控件的属性及使用说明 1.固定行及固定列: (没有固定行列的时候,不能在运行时调节各个单元格

Delphi的重要属性,主要是Enable,  Visible, Color, left等等.这里分析left,因为TWinControl里有些覆盖函数的原因,虽然起点都是TControl.SetLeft()函数,但是图形控件和Win控件走的是不一样的路线.这里是测试TWinControl的left代码: procedure TForm1.Button1Click(Sender: TObject); begin panel1.Left:=panel1.Left-; end; 由于left是TCo

delphi RTTI 读取属性 运行期 通过RTTI给属性赋值 http://docwiki.embarcadero.com/CodeExamples/Berlin/en/Event_RTTI_Invocation_(Delphi) http://www.cnblogs.com/del/archive/2009/10/15/1583969.html var context: TRttiContext; method: TValue; // System.TMethod methodType:

http://blog.csdn.net/u011096030/article/details/18716713 button 组件: CAPTION 属性 :用于在按钮上显示文本内容 Cancel 属性:是否设置成默认的取消按钮,当设置为真的时候(true) 按ESC触发改按钮的事件! Default 属性:是否设置成默认的确认按钮,当设置为真的时候 按ENTER键的时候触发事件 Hint 属性:设置当鼠标在按钮上短暂停留是显示的提示内容. Showhint 属性: 是否显示提示内容默认为假!

常用[属性] Action:该属性是与组件关联的行为,允许应用程序集中响应用户命令 Anchors:与组件连接的窗体的位置点 Align:确定组件的对齐方式 AutoSize:确定组件是否自动调整其大小 BiDiMode:(所有组件) 为从右向左写的语言提供支持 BoundsRect:定义组件边框矩形(只适用于运行时) Borderwidth:(窗口化组件)边框的宽度 BorberStyle:设置组件边框形状(样式) Brush:可确定组件的风格和颜色 Caption:使用该属性可指定标注组件的

TWindowState = (wsNormal, wsMinimized, wsMaximized); TScrollingWinControl = class(TWinControl) private FHorzScrollBar: TControlScrollBar; FVertScrollBar: TControlScrollBar; FAutoScroll: Boolean; FAutoRangeCount: Integer; FUpdatingScrollBars: Boolean;

property ButtonSize: Integer read FButtonSize write SetButtonSize default 0;    property Color: TColor read FColor write SetColor default clBtnHighlight;    property Increment: TScrollBarInc read FIncrement write FIncrement stored IsIncrementStored d

StringGrid组件用于建立显示字符串的网格,与电子表格相似.它可使表格中的字符串和相关对象操作简单化.StringGrid组件提供了许多可控制网格外观念的属性,以及利用表格的结构响应用户操作的事件和方法.StringGrid具有关联对象与网格中的每个字符串的作用,这些对象为用户封装了字符串表示的信息或行为. 一.Delphi StringGrid控件的属性及使用说明 1.固定行及固定列:  (没有固定行列的时候,不能在运行时调节各个单元格的宽度和高度) StringGrid.FixedCo

可以把属性看成是能对类中的数据进行修改和执行代码的特殊的辅助域.对于组件来说,属性就是列在Object Inspector窗口的内容.下面的例子定义了一个有属性的简单对象 TMyObject = class private SomeValue: Integer; procedure SetSomeValue(AValue: Integer); public property Value: Integer read SomeValue write SetSomeValue; end; proced

常用[属性]  Action:该属性是与组件关联的行为,允许应用程序集中响应用户命令  Anchors:与组件连接的窗体的位置点  Align:确定组件的对齐方式  AutoSize:确定组件是否自动调整其大小  BiDiMode:(所有组件)  为从右向左写的语言提供支持  BoundsRect:定义组件边框矩形(只适用于运行时)  Borderwidth:(窗口化组件)边框的宽度  BorberStyle:设置组件边框形状(样式)   Brush:可确定组件的风格和颜色  Caption:使

Align属性:控制窗体显示时的对齐方式(注:是相对于父窗体的对齐方式.如果该窗体是主窗体则没有父窗体)(与anchor不同在于,anchor定义的对齐是固定到边界的距离) 默认值为alNone.其他值有:alBottom(让该窗体显示在父窗体的底部),alClient(让该窗体填满整个父窗体),alTop(让该窗体显示在父窗体的顶部),alLeft(...左部),alRight(...右部). BorderIcons属性下面的biMinimize和biMaximize属性可以控制窗体是否有最大

1,故障现象 一次程序运行,出现如下错误: 对应代码如下: 2,故障分析 Query_alert_2的语句在查询分析器中单独执行是正常的.排除语句出错. 如果注解掉Query_alert_1,则错误变为Query_alert_3执行出错: 2019-07-11 09:32:26 Query_alert_1执行完毕 2019-07-11 09:32:27 Query_alert_2执行完毕 2019-07-11 09:32:42 Do_Update_Statis出错:列名 'bat_pos1' 无

以下数据,部分来自网络的收集,部分为自己测试后的原创整理,希望对你有帮助,更新会注明日期. 1.locktype  指定用户打开数据集时对数据集的锁定级别: ltUnspecified   未指定锁定级别 ltReadOnly Read-only    只读   ,会加快数据读取速度 ltPessimistic   记录级别(该记录被编辑时其它用户不能用) ltOptimistic   独立模式(与原来结果集对照,如果在此期间其它用户修改了结果,则你的结果不能保存) ltBatchOptimis

临时做了两个小的测试程序,为了彻底弄清楚combobox的OnClick.OnChange.OnDropDown.OnCloseUp.OnSelect事件的触发及其先后顺序. 另附常用鼠标事件的触发情况. 效果图:

有时候需要客户端进行服务器连接配置,自己写配置窗体,总不如直接使用系统提供的使用方便快捷 例子一: //此例子有个坏处不管用户点了确定还是取消,均返回值 procedure TForm1.Button1Click(Sender: TObject); var connStr:string; begin connStr := PromptDataSource(Application.Handle,ADOConnection1.ConnectionString); //function PromptD

使用这种功能必须使用 OnKeyPress 事件,该事件是在窗体中获得键盘输入的焦点,并且在用户按键时发生.OnKeyPress 事件中有个重要参数:Key.Key 参数为Char 型,它能够获得用户的按键值.下面的代码就只能输入0~9 之间的数字,且只能输入一个小数点,按下其他键时无效. procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin ]) then key:=#; ) then key:=#; end

unit Unit39; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls; type TForm39 = class(TForm) Button1: TButton; Button2: TButton; Button3:

Delphi 的 ISuperObject 属性顺序为随机.但是很多时候,是需要按加入顺序进行读取.我也看了网上很多人有类似需求.也有人问过原作者,作者答复为:JSON协议规定为无序.看了我真是无语. 也看过网上一些人自己的修改,但是修改后有两个问题(网上的方法都不好,只能自己动手了): 1. 性能急剧下降.原作者是用二叉树对性能做了极大的优化.但是网上修改的方法性能不行. 2. 属性数大于 32 时会出错.(原来用的是二叉树,修改后部分算法未修改,导致此问题). 我采用的是重写遍历器的方法,和