我们大家经常用showmessage()查看一个sql语句，有没有办法使showmessage弹出的窗口显示的sql语句复制进剪贴板?

iloveyan 2002-01-17 03:00:24
...全文
121 3 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
ZengXi 2002-01-17
  • 打赏
  • 举报
 回复
改lib文件..
cobi 2002-01-17
  • 打赏
  • 举报
 回复
伴水的方法可行啊！
王集鹄 2002-01-17
  • 打赏
  • 举报
 回复
uses
Clipbrd;

procedure TForm1.Button1Click(Sender: TObject);
begin
Clipboard.AsText := Query1.SQL.Text;
ShowMessage(Query1.SQL.Text);
end;
Delphi 5编程实例与技巧
4.1.2 鼠标右键弹出式菜单 99 4.1.3 使用菜单模板 99 4.2 工具栏 100 4.2.1 ToolBar 100 4.2.2 CoolBar 100 4.2.3 ControlBar 101 4.3 状态栏 101 4.4 方法与技巧 106 4.4.1 动态创建菜单 106 4.4.2 为菜单动态定义...
DELPHI 5编程实例与技巧
4.1.2 鼠标右键弹出式菜单 99 4.1.3 使用菜单模板 99 4.2 工具栏 100 4.2.1 ToolBar 100 4.2.2 CoolBar 100 4.2.3 ControlBar 101 4.3 状态栏 101 4.4 方法与技巧 106 4.4.1 动态创建菜单 106 4.4.2 为菜单动态定义...
Delphi中批量把双引号替换为单引号的方法
Delphi调试模式中抓出来的SQL语句中变量值是双引号，不能直接执行，要替换为单引号包裹才行。 DELPHI中双引号用''''表示，单引号用''表示。但是 //下面这种写法是错误的。执行结果是全部被替换成空了。 Memo2....
Delphi 基本语法与操作《转》
listbox从文件中读取列表的操作ListBox1.Items.LoadFromFile(ExtractFilePath(Application.ExeName)+'aaa.txt');...//添加了一个项目ListBox1.Items.SaveToFile(ExtractFilePath(Application.ExeNam...
在VC下执行DOS命令
/* ==============================================================================================... 1) 调用命令时会出现一个dos 窗口一闪而过，影响视觉效果。   2)无法将命令的执行结果反馈给用户。 
非技术区

830

社区成员

53,574

社区内容

发帖
与我相关
我的任务
社区描述
Delphi 非技术区
社区管理员
  • 非技术区社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章