delphi 双击ListBox1内容，数据插入到MEMO1/SynEdit1鼠标指定位置-木庄网络博客

本文整理自网络，侵删。

 procedure TfrmMain.ListBox1DblClick(Sender: TObject);
begin
//双击ListBox1内容，数据插入到MEMO1鼠标指定位置
  memo1.SelText := ListBox1.Items.Strings[ListBox1.ItemIndex];
  memo1.SetFocus;
end;

//SynEdit1 用法一样
procedure TfrmMain.ListBox1DblClick(Sender: TObject);
begin
{ Want to add text to SynEdit to be used with AutoComplete }
  SynEdit1.SelText := ListBox1.Items.Strings[ListBox1.ItemIndex];
  SynEdit1.SetFocus;
end;

相关阅读 >>

Delphi rect()

Delphi dbgrid中实现copy、paste功能

Delphi adoconnection1连接mssql数据库方法

Delphi post数据到网页

Delphi tstringlist utf8编码保存并开启bom

Delphi 获取jpg文件宽度高度的方法

Delphi 让combobox只允许输入数字和回车键以及Delphi key值表

Delphi xe android platform uses-permission[2] androidmanifest.xml 配置

Delphi控制word添加多行文字

Delphi将image存入mysql数据库

更多相关阅读请进入《Delphi》频道 >>