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 trayicon控件,如何实现窗口最小化的时候到系统托盘？

Delphi 在tedit中显示水印提示

Delphi listview 实现进度条显示

Delphi系统默认语言与系统支持的语言列表

Delphi 实现一个程序在另一个程序内运行

Delphi encodeuricomponent

Delphi 判断操作系统是否是64位的函数

Delphi 批量多个字符串合并一个txt文件

Delphi 随机函数单元urandomutils

Delphi fmx播放m4a声音文件

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