https://blog.csdn.net/sunstonezh-cnhttps://blog.csdn.net/https://blog.csdn.net/sunstone/article/details/6633557https://blog.csdn.net/sunstone/article/details/6633557sunstoneTue, 26 Jul 2011 06:50:30 +0800https://blog.csdn.net/sunstone/article/details/6632435https://blog.csdn.net/sunstone/article/details/6632435sunstoneMon, 25 Jul 2011 16:36:02 +0800https://blog.csdn.net/sunstone/article/details/6629365https://blog.csdn.net/sunstone/article/details/6629365sunstoneSun, 24 Jul 2011 12:08:15 +0800https://blog.csdn.net/sunstone/article/details/6627104https://blog.csdn.net/sunstone/article/details/6627104sunstoneFri, 22 Jul 2011 23:20:52 +0800https://blog.csdn.net/sunstone/article/details/6537253https://blog.csdn.net/sunstone/article/details/6537253sunstoneFri, 10 Jun 2011 20:59:00 +0800https://blog.csdn.net/sunstone/article/details/6537249https://blog.csdn.net/sunstone/article/details/6537249sunstoneFri, 10 Jun 2011 20:57:00 +0800https://blog.csdn.net/sunstone/article/details/6169286https://blog.csdn.net/sunstone/article/details/6169286sunstoneSat, 29 Jan 2011 23:01:00 +08001.取消新窗体的systemmenu，目的是去掉窗体的关闭按钮X
 
2.在窗体加上新按钮，点击事件为
close;
 
3.在窗体的onclose实践中添加如下代码
 
action:=canone;//这句一定要放在messagedlg前面
messagedlg(xxxxxxx);
 ]]>https://blog.csdn.net/sunstone/article/details/6169281https://blog.csdn.net/sunstone/article/details/6169281sunstoneSat, 29 Jan 2011 22:57:00 +0800在ServerModule单元中有如下属性，可以使用
 
ServerModule.UniServerModule.ServerStats.ActiveSessions
ServerModule.UniServerModule.ServerStats.MaxSessions
ServerModule.UniServerModule.ServerStats.BytesSent
ServerModule.UniServerModule.ServerS]]>https://blog.csdn.net/sunstone/article/details/6169279https://blog.csdn.net/sunstone/article/details/6169279sunstoneSat, 29 Jan 2011 22:54:00 +0800今天一个朋友在使用UNIGUI碰到了问题，他要遍历窗体上的控件，然后根据类名进行相应控制。
 
原来的程序为：
procedure TMainForm.Fj_component;
var
  i: Integer;
begin
  for i := 0 to MainForm.ComponentCount - 1 do
  begin
    UniMemo1.Lines.Add(MainForm.Comp]]>https://blog.csdn.net/sunstone/article/details/6159433https://blog.csdn.net/sunstone/article/details/6159433sunstoneSun, 23 Jan 2011 08:13:00 +0800https://blog.csdn.net/sunstone/article/details/6091520https://blog.csdn.net/sunstone/article/details/6091520sunstoneWed, 22 Dec 2010 13:31:00 +0800经常用到把字节数显示成kb或gb，函数如下
 
function FormatByteSize(const bytes: Longint): string;
 const
   B = 1; //byte
   KB = 1024 * B; //kilobyte
   MB = 1024 * KB; //megabyte
   GB = 1024 * MB; //gigabyte
 begin
   if ]]>https://blog.csdn.net/sunstone/article/details/5282666https://blog.csdn.net/sunstone/article/details/5282666sunstoneTue, 02 Feb 2010 21:11:00 +0800https://blog.csdn.net/sunstone/article/details/5251573https://blog.csdn.net/sunstone/article/details/5251573sunstoneSun, 24 Jan 2010 20:21:00 +0800https://blog.csdn.net/sunstone/article/details/5145750https://blog.csdn.net/sunstone/article/details/5145750sunstoneWed, 06 Jan 2010 20:36:00 +0800https://blog.csdn.net/sunstone/article/details/5023718https://blog.csdn.net/sunstone/article/details/5023718sunstoneThu, 17 Dec 2009 10:33:00 +0800https://blog.csdn.net/sunstone/article/details/5016363https://blog.csdn.net/sunstone/article/details/5016363sunstoneWed, 16 Dec 2009 07:17:00 +0800https://blog.csdn.net/sunstone/article/details/4999440https://blog.csdn.net/sunstone/article/details/4999440sunstoneSun, 13 Dec 2009 20:28:00 +0800https://blog.csdn.net/sunstone/article/details/4990189https://blog.csdn.net/sunstone/article/details/4990189sunstoneSat, 12 Dec 2009 10:03:00 +0800https://blog.csdn.net/sunstone/article/details/4970158https://blog.csdn.net/sunstone/article/details/4970158sunstoneWed, 09 Dec 2009 11:14:00 +0800https://blog.csdn.net/sunstone/article/details/4944779https://blog.csdn.net/sunstone/article/details/4944779sunstoneSat, 05 Dec 2009 10:40:00 +0800