本文整理自网络,侵删。
procedure TForm1.Memo1DblClick(Sender: TObject);begin ShowMessage(Memo1.SelText); //这个弹出选中的文字内容end;
相关阅读 >>
Delphi xe7实现获取程序是否已管理员模式运行以及运行的windows用户名
Delphi xe android 调试错误:connection closed gracefully
Delphi firdac 对 sqlite 数字, int64也会被截断,会出现负数情况处理
更多相关阅读请进入《Delphi》频道 >>