摘要: 今天一个朋友在使用UNIGUI碰到了问题,他要遍历窗体上的控件,然后根据类名进行相应控制。原来的程序为:procedure TMainForm.Fj_component;var i: Integer;begin for i := 0 to MainForm.ComponentCount - 1 do begin UniMemo1.Lines.Add(MainForm.Components[i].ClassName); if MainForm.Components[i] is TUniBitBtn then begin UniLabel1.Caption := 'found'; (MainFor 阅读全文
posted @ 2011-02-17 12:52 阳光不远 阅读(712) 评论(0) 推荐(0) 编辑
摘要: 1.取消新窗体的systemmenu,目的是去掉窗体的关闭按钮X2.在窗体加上新按钮,点击事件为close;3.在窗体的onclose实践中添加如下代码action:=canone;//这句一定要放在messagedlg前面messagedlg(xxxxxxx);http://blog.csdn.net/sunstone/archive/2011/01/29/6169286.aspx 阅读全文
posted @ 2011-02-17 12:51 阳光不远 阅读(607) 评论(0) 推荐(0) 编辑
摘要: 在ServerModule单元中有如下属性,可以使用ServerModule.UniServerModule.ServerStats.ActiveSessionsServerModule.UniServerModule.ServerStats.MaxSessionsServerModule.UniServerModule.ServerStats.BytesSentServerModule.UniServerModule.ServerStats.BytesReceivedhttp://blog.csdn.net/sunstone/archive/2011/01/29/6169281.aspx 阅读全文
posted @ 2011-02-17 12:47 阳光不远 阅读(724) 评论(0) 推荐(0) 编辑