当前位置：
  1. 首页
  2. 技术信息

Delphi 仿制用友U8界面

指尖风暴 技术信息 0 533

241114057525999

  1. unit Unit1;  
  2.   
  3. interface  
  4.   
  5. uses  
  6.   Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,  
  7.   Vcl.Controls, Vcl.Forms, Vcl.Dialogs, cxGraphics, cxControls, cxLookAndFeels,  
  8.   cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters,  
  9.   dxSkinsdxNavBarPainter, dxSkinscxPCPainter, cxPCdxBarPopupMenu, cxPC,  
  10.   dxNavBarCollns, cxClasses, dxNavBarBase, dxNavBar, dxSkinsdxStatusBarPainter,  
  11.   dxStatusBar;  
  12.   
  13. type  
  14.   TForm1 = class(TForm)  
  15.     dxNavBar1: TdxNavBar;  
  16.     dxNavBar1Group1: TdxNavBarGroup;  
  17.     dxNavBar1Group2: TdxNavBarGroup;  
  18.     dxNavBar1Group3: TdxNavBarGroup;  
  19.     dxNavBar1Group4: TdxNavBarGroup;  
  20.     dxNavBar1Item1: TdxNavBarItem;  
  21.     dxNavBar1Item2: TdxNavBarItem;  
  22.     dxNavBar1Item3: TdxNavBarItem;  
  23.     dxNavBar1Item4: TdxNavBarItem;  
  24.     cxPageControl1: TcxPageControl;  
  25.     cxTabSheet1: TcxTabSheet;  
  26.     dxStatusBar1: TdxStatusBar;  
  27.     Procedure Addpage(cText:String);  
  28.     procedure dxNavBar1Item1Click(Sender: TObject);  
  29.     procedure dxNavBar1Item2Click(Sender: TObject);  
  30.     procedure dxNavBar1Item3Click(Sender: TObject);  
  31.     procedure dxNavBar1Item4Click(Sender: TObject);  
  32.   private  
  33.     { Private declarations }  
  34.   public  
  35.     { Public declarations }  
  36.   end;  
  37.   
  38. var  
  39.   Form1: TForm1;  
  40.   
  41. implementation  
  42.   
  43. {$R *.dfm}  
  44. Procedure TForm1.Addpage(cText:String);  
  45.  Var  
  46.    I:integer;  
  47.    bNew:Boolean;  
  48.    TempTab:TcxTabSheet;  
  49.  begin  
  50.     bNew:=true;  
  51.     for I := 0 to Self.cxPageControl1.PageCount-1 do  
  52.        begin  
  53.          if cxpageControl1.Pages[i].Caption=cText then  
  54.             begin  
  55.               cxpagecontrol1.Properties.ActivePage:=cxpagecontrol1.Pages[i];  
  56.               bNew:=False;  
  57.             end;  
  58.          end;  
  59.     IF bNew then  
  60.       begin  
  61.          TempTab:=TcxTabSheet.Create(cxpageControl1);  
  62.          TempTab.Caption:=cText;  
  63.          TempTab.PageControl:=cxpageControl1;  
  64.          cxPageControl1.Properties.ActivePage:=TempTab;  
  65.       end;  
  66.  end;  
  67.  procedure TForm1.dxNavBar1Item1Click(Sender: TObject);  
  68.    begin  
  69.       Addpage((Sender as TdxNavBarItem).Caption);  
  70.    end;  
  71.  procedure TForm1.dxNavBar1Item2Click(Sender: TObject);  
  72. begin  
  73.     Addpage((Sender as TdxNavBarItem).Caption);  
  74. end;  
  75.   
  76. procedure TForm1.dxNavBar1Item3Click(Sender: TObject);  
  77. begin  
  78.         Addpage((Sender as TdxNavBarItem).Caption);  
  79. end;  
  80.   
  81. procedure TForm1.dxNavBar1Item4Click(Sender: TObject);  
  82. begin  
  83.     Addpage((Sender as TdxNavBarItem).Caption);  
  84. end;  
  85.   
  86. end.  

来源：http://www.cnblogs.com/wuxi15/p/3805638.html

上一篇 delphi.thread.线程循环执行体结构
下一篇 ECShop cls_sql_dump.php on line 31 错误解决方法

相关文章

发表回复

登录... 后才能评论