• 全部
  • 语言基础/算法/系统设计
  • 数据库相关
  • 图形处理/多媒体
  • 网络通信/分布式开发
  • VCL组件开发及应用
  • Windows SDK/API
  • 问答

问一个问题,谢谢!!!!

IWillSaveGod 2004-10-25 08:54:08
一个带滚动条的滚动窗口(类似聊天室窗口),每行显示一条滚动的信息,怎么将所有的信息复制下来,谢谢!
...全文
92 点赞 收藏 8
写回复
8 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
chenqiang_200878 2004-10-26
up
回复
123hui 2004-10-26
什么环境,是在一个工程里吗?
回复
beyondtkl 2004-10-26
喔。。 那你需要弄清楚 当前显示行的标志 之类的。。
有另外这个进程的一些文档之类的么。。
回复
ghchen 2004-10-26
不会,帮顶
回复
IWillSaveGod 2004-10-26
upppppppppppppppppppppppp
回复
IWillSaveGod 2004-10-25
而且这个窗口是在另外一个进程中
回复
IWillSaveGod 2004-10-25
这个我会啊,关键是聊天室窗口是滚动的,上面的编程会造成很多信息重复阿
回复
hottey 2004-10-25
{--- 得到本文框内容 ---}
function GetText(hwd: HWND):String;
var
Ret: LongInt;
Text: PChar;
Buf: integer;
begin
result := '';
GetMem(Text,1024*100);
if (hwd <> 0) then
begin
try
Ret := SendMessage(hwd, WM_GETTEXTLENGTH, 0, 0)+1;
if Ret > 1 then
begin
Buf := LongInt(Text);
SendMessage(hwd, WM_GETTEXT, Min(Ret, 1024*100), Buf);
result := String(Text);
end;
finally
FreeMem(Text);
end;
end else
exit;
end;
回复
发帖
Delphi
创建于2007-08-02

4869

社区成员

Delphi 开发及应用
申请成为版主
帖子事件
创建了帖子
2004-10-25 08:54
社区公告
暂无公告