开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
MainForm.pas
资源名称：delphi.rar　[点击查看]
上传用户：fh681027
上传日期：2022-07-23
资源大小：1959k
文件大小：2k
源码类别：

Delphi控件源码

开发平台：

Delphi

MainForm.pas：源码内容
  1. unit MainForm;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics,
  7.   Controls, Forms, Dialogs, Menus, ComCtrls, ToolWin, DBActns, ActnList,
  8.   ImgList;
  10. type
  11.   TFormMain = class(TForm)
  12.     ToolBar1: TToolBar;
  13.     StatusBar1: TStatusBar;
  14.     ImageList1: TImageList;
  15.     ActionList1: TActionList;
  16.     DataSetCancel1: TDataSetCancel;
  17.     DataSetDelete1: TDataSetDelete;
  18.     DataSetEdit1: TDataSetEdit;
  19.     DataSetFirst1: TDataSetFirst;
  20.     DataSetInsert1: TDataSetInsert;
  21.     DataSetLast1: TDataSetLast;
  22.     DataSetNext1: TDataSetNext;
  23.     DataSetPost1: TDataSetPost;
  24.     DataSetPrior1: TDataSetPrior;
  25.     DataSetRefresh1: TDataSetRefresh;
  26.     ToolButton1: TToolButton;
  27.     ToolButton2: TToolButton;
  28.     ToolButton3: TToolButton;
  29.     ToolButton4: TToolButton;
  30.     ToolButton5: TToolButton;
  31.     ToolButton6: TToolButton;
  32.     ToolButton7: TToolButton;
  33.     ToolButton8: TToolButton;
  34.     ToolButton9: TToolButton;
  35.     ToolButton10: TToolButton;
  36.     PageControl1: TPageControl;
  37.     TabCompanies: TTabSheet;
  38.     TabClasses: TTabSheet;
  39.     TabFreeQ: TTabSheet;
  40.     procedure FormCreate(Sender: TObject);
  41.     procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  42.     procedure PageControl1Change(Sender: TObject);
  43.   public
  44.     procedure ShowForm (Form: TForm; Tab: TTabSheet); overload;
  45.   end;
  47. var
  48.   FormMain: TFormMain;
  50. implementation
  52. uses
  53.   MainData, CompaniesForm,
  54.   FreeQueryForm, ClassesForm;
  56. {$R *.DFM}
  58. procedure TFormMain.FormCreate(Sender: TObject);
  59. begin
  60.   ShortDateFormat := 'dd/mm/yyyy';
  61.   ShowForm (TFormCompanies.Create (self), TabCompanies);
  62. end;
  64. procedure TFormMain.ShowForm (Form: TForm; Tab: TTabSheet);
  65. begin
  66.   Form.BorderStyle := bsNone;
  67.   Form.Align := alClient;
  68.   Form.Parent := Tab;
  69.   Form.Show;
  70. end;
  72. procedure TFormMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  73. var
  74.   i: integer;
  75. begin
  76.   // ask permission to close each subform
  77.   CanClose := True;
  78.   for i := 0 to Screen.FormCount - 1 do
  79.     if Screen.Forms[I] <> self then
  80.       CanClose := CanClose and Screen.Forms[I].CloseQuery;
  81. end;
  83. procedure TFormMain.PageControl1Change(Sender: TObject);
  84. begin
  85.   if PageControl1.ActivePage.ControlCount = 0 then
  86.     if PageControl1.ActivePage = TabFreeQ then
  87.       ShowForm (TFormFreeQuery.Create (self), TabFreeQ)
  88.     else if PageControl1.ActivePage = TabClasses then
  89.       ShowForm (TFormClasses.Create (self), TabClasses);
  90. end;
  92. end.