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

IWillSaveGod 2004-10-25 08:54:08
一个带滚动条的滚动窗口(类似聊天室窗口),每行显示一条滚动的信息,怎么将所有的信息复制下来,谢谢!
...全文
128 8 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
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;

5,928

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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