请看一下这段代码的含义(30分)

  • 主题发起人 主题发起人 weina
  • 开始时间 开始时间
W

weina

Unregistered / Unconfirmed
GUEST, unregistred user!
这是弹出“关于”窗体的代码:
procedure TMainForm.Help110Click(Sender: TObject);
begin
MessageBox(0, ' 物流资源管理系统' + #13#10 + ' ' + #13#10 +
' 版本1.0' + #13#10 + ' ' + #13#10 + ' 内部测试', '关于…………',
MB_OK + MB_ICONINFORMATION);
end;
请问#13#10的作用是什么?
这是弹出“系统信息”窗体的代码:
ShellAbout(Application.Handle, PChar(Application.MainForm.Caption), '',Application.Icon.Handle);
请问ShellAbout,Application.Handle,PChar,Application.Icon.Handle各是什么意思啊??
谢谢各位高手了!~
 
#13#10 回车加换行
ShellAbout 可能是自定义函数
Application.Handle 应用程序句柄
PChar 标准数据类型
Application.Icon.Handle 应用程序图标句柄
 
#13#10 产生一个换行,如果拆开来说:#13 是回车、#10 是空格。

ShellAbout 是一个 Windows API 函数,作用是弹出一个关于对话框,那些参数逐个给您解释对您帮助你非常有限,我觉得您可能刚刚开始还没有入门,还需要太多的努力啊!

有些朋友可能会对您在 delphibbs 问这样的问题提出异议和批评,其实,我也认为基本入门应该靠自己。

祝您好运!
 
有些基础的东西,还是多看看书比较好
用delphi的时候还要多看看帮助
偶也是初学者
呵呵
 
真的非常感谢你们!~
 
后退
顶部