delphi轻松实现输入法编程

打开delphi 2010窗口进行编程, 编程时,一般把输入西文或以西文为主的元件的ImeMode属性设为缺省值;而把输入中文或以中文为主的元件的ImeMode属性设为ImOpen;ImeName属性值则在程序运行时由用户设定。这个方法的灵活性就在于此。另外,还需要把Edit1.Text、Edit2.Text、Memo1.Lines的值设为空。 (3)在Form1中添加一个标签Label4,设定其属性为: Caption = 选择最喜欢的输入法 Font.Size=12 Font.Color=红色 (4)在Form1中添加一个下拉组合框ComboBox1,在对象观察器Object Inpector中选择Events选项卡,双击OnDropDown,对此事件进行编程,其代码如下: ComboBox1.Items.CommaText:=Screen.Imes.CommaText; 上面这个语句可以将中文Windows 95中安装的汉字输入法添加到下拉组合框中,它巧妙地运用了TScreen类的Imes特性,而Imes特性本身又是一个Tstring类,其属性Commatext包含了Windows 95已安装的汉字输入法,可以将其直接赋值给ComboBox1的相应属性。如果直接编辑ComboBox1的属性Items来添加汉字输入法名称,则会在应用程序发布时,因用户机器汉字输入法的不确定性造成应用程序的不通用性。 在对象观察器中双击OnExit事件,对此事件进行编程,代码如下: Edit1.ImeName:=ComboBox1.Text; Memo1.ImeName:=ComboBox1.Text; (5)在Form1中添加一个命令按钮Button1,设置其属性为: Caption=退出 Font.Size=12 双击此命令按钮,对Click事件进行编程,代码如下: Close; 至此,整个示例的程序设计过程就完成了,保存此应用程序及表单,再进行编译、运行。 3.汉字输入法的使用 首先在下拉组合框中选择你所喜欢的汉字输入法,将光标移到中文输入编辑框中就会发现所选的汉字输入法已自动出现在屏幕上;再将光标移到西文输入编辑框中,汉字输入法就会自动关闭;如果将光标移到中文多行文本编辑框中,则已选中汉字输入法又自动出现了。 从上面的程序中可以得出,在应用程序的录入界面中,设置一个选择输入法的下拉组合框,并让其控制录入界面中所有可输入项的ImeName属性,既可以做到在中西文录入过程中不必进行录入法的来回切换,还可以做到让用户选择自己最喜欢的汉字输入法,而且这样的录入界面对于用户来说也是非常友好、方便、快捷的。PCC 必须用'标识符,但直接用'会出错 tdataset.filter:='somebodyname='+chr(39)+'李*'+chr(39) end.

转载于:https://my.oschina.net/bigfool007139/blog/408874

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
要在Delphi中连接到PostgreSQL数据库,你需要使用第三方组件,比如ZeosLib或PostgreSQL的官方组件。这里以ZeosLib为例,以下是连接步骤: 1. 下载并安装ZeosLib组件库。 2. 在Delphi中创建一个新的项目。 3. 在项目菜单中选择“Component”->“Zeos Database”->“ZConnection”。 4. 在ZConnection的属性编辑器中,设置以下属性: a. Protocol: postgres b. HostName: 数据库服务器的IP地址或主机名 c. Port: 数据库服务器的端口号,默认为5432 d. User: 数据库用户名 e. Password: 数据库用户密码 f. Database: 要连接的数据库名称 5. 在需要使用数据库的地方,创建一个ZQuery组件。 6. 在ZQuery的属性编辑器中,设置以下属性: a. Connection: ZConnection组件的名称 b. SQL: 要执行的SQL语句 7. 在代码中使用ZQuery的ExecSQL方法来执行SQL语句或使用ZQuery的Open方法来打开数据集。 以下是一个简单的示例代码: ```delphi uses ZConnection, ZDataset; var Conn: TZConnection; Query: TZQuery; begin Conn := TZConnection.Create(nil); Conn.Protocol := 'postgres'; Conn.HostName := 'localhost'; Conn.Port := 5432; Conn.User := 'postgres'; Conn.Password := 'password'; Conn.Database := 'mydb'; Conn.Connect; Query := TZQuery.Create(nil); Query.Connection := Conn; Query.SQL.Text := 'SELECT * FROM mytable'; Query.Open; while not Query.EOF do begin // do something with the data Query.Next; end; Query.Free; Conn.Disconnect; Conn.Free; end; ```

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值