// Author: CXG// Time: 2010-08-04 13:26:38unit uMain;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, Menus, RzTabs, RzSplit, RzPanel, ExtCtrls;type  TFormMain = class(TForm)    MainMenu1: TMainMenu;    Rz

<br />procedure TForm1.dxBarManagerToDxNavBar;<br />var<br />  i, j: Integer;<br />  item: TdxBarSubItem;<br />  group: TdxNavBarGroup;<br />  bar: TdxNavBarItem;<br />begin<br />  dxNavBar1.Groups.Clear;<br />  for i := 0 to dxBarManager1Bar1.ItemLinks.Co

<br />procedure TForm1.openForm(aFormClass: TFormClass; aOwner: TWinControl);<br />begin<br />  with AFormClass.Create(aOwner) do<br />  begin<br />    ManualDock(aOwner);<br />    WindowState := wsMaximized;<br />    Align := alClient;<br />    Show;<br /

<br />procedure TForm1.blDxBarManager;<br />var<br />  i: Integer;<br />begin<br />  for i := 0 to dxBarManager1.ItemCount - 1 do<br />  begin<br />    if dxBarManager1.Items[i] is TdxBarButton then<br />      TdxBarButton(dxBarManager1.Items[i]).OnClick :

<br />Var<br />  count, scount: integer;<br />  mynode: TTreeNode;<br />  mysubItem: TdxBarSubItem;<br />Begin<br />  Inherited;<br />  For count := 0 To frmMainForm.MenuBar.ItemLinks.Count - 1 Do<br />  Begin<br />    mynode := RzCheckTree2.Items.AddFirst

<br />添加组,添加项,并将项和组关联起来<br />tempitem:TdxnavbarItem;<br />  tempgroup:Tdxnavbargroup;<br />  tempgroup:=dxnavbar1.Groups.Add<br /> <br />      tempitem:=dxnavbar1.Items.Add;<br />   tempitem.Caption:=Caption;<br />   tempitem.OnClick:=button1.OnClick;//绑定事

<br />  AdvAlertWindow1.AlertMessages.Add.Text.Text := s;<br />  AdvAlertWindow1.Last;<br />  AdvAlertWindow1.Show;<br /> <br />tms套件中控件，做消息提示框效果非常好。<br /> <br /> 

<br />将释放写在子窗体的FORMCLOSE()里面<br />procedure TFormLogin.FormClose(Sender: TObject; var Action: TCloseAction);<br />begin<br />  Action := caFree;<br />  FormLogin := nil;<br />end;<br /> <br />关闭TABSHEET的时候,遍历找到它里面的窗体,然后调用窗体的close()方法<br />procedure TFormMa

<br />使用递归方法遍历MAINMENU的所有菜单项<br />procedure   TFormMain.BLMenu;<br />    procedure   GetItems(AItem:TMenuItem); <br />    var <br />        I:integer; <br />    begin <br />        AItem.OnClick := MenuTreeClick;      //菜单项关联点击事件<br />        for   I:=0  

<br />在工程文件里面增加Application.ShowMainForm := False;<br />登录窗体.visible := true;<br />成功登录以后再显示主窗体。