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 [fmx]如何使用剪贴板

Delphi 分割文件合并文件的函数

Delphi分离汉字和英文字母

Delphi 显示选择文件夹对话框 (有新建按钮)

Delphi 各种tstream(流)介绍

Delphi 中相对路径与绝对路径、系统环境变量等相关函数说明

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