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各是什么意思啊??
谢谢各位高手了!~
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各是什么意思啊??
谢谢各位高手了!~