【delphi开源代码栏目提醒】:网学会员--在 delphi开源代码编辑为广大网友搜集整理了:Base_Form_U.pas绩等信息,祝愿广大网友取得需要的信息,参考学习。
{
unit name : Base_Form_U
Author : 李涛
Create date: 2005-09-14 10:42:23
description: Delphi框架模版基础功能窗体继承原型.
}
unit Base_Form_U;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, Public_Unit_U, Buttons, ImgList, DBGrids;
type
TBase_Form = class(TForm)
PanelTop: TPanel;
Panel_ICO: TPanel;
Fun_ICO: TImage;
PanelTopText: TPanel;
PanelBottom: TPanel;
Panel2: TPanel;
App_ICO: TImage;
PanelBottomText: TPanel;
ADD_Bit: TBitBtn;
Edit_Bit: TBitBtn;
Del_Bit: TBitBtn;
Query_Bit: TBitBtn;
Print_Bit: TBitBtn;
procedure FormShow(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Query_BitClick(Sender: TObject);
private
procedure DBGrid_TitleClick(Column: TColumn);
{ Private declarations }
public
{ Public declarations }
end;
var
Base_Form: TBase_Form;
implementation
uses MainForm_U, PublicQuery_u;
{$R *.dfm}
procedure TBase_Form.DBGrid_TitleClick(Column: TColumn);
begin
DBOrderBy(Column);
end;
procedure TBase_Form.FormShow(Sender: TObject);
var
R,G,B: Integer;
I: integer;
begin
R:=StrToInt(Copy(MySelf.PancelColor,0,3));
G:=StrToInt(Copy(MySelf.PancelColor,4,3));
B:=StrToInt(Copy(MySelf.PancelColor,7,3));
//设置颜色
//--------top--------------------------------------------------------------
PanelTop.Color:=RGB(R,G,B);
PanelTopText.Color:=PanelTop.Color;
Panel_ICO.Color:=PanelTop.Color;
//使用功能的ICO
Fun_Form.Icon:=TIcon.Create;
try
if FileEx(MySelf.SourcePath+Fun_Form.Caption+'.ICO') then
Fun_Form.Icon.LoadFromFile(MySelf.SourcePath+Fun_Form.Caption+'.ICO');
Fun_ICO.Picture.Icon:=Fun_Form.ICON;
finally
Fun_Form.Icon.Free;
Fun_Form.Icon:=nil;
end;
//--------Bottom-----------------------------------------------------------
App_ICO.Picture.Icon:=MySelf.Icon;
PanelBottom.Color:=PanelTop.Color;
PanelBottomText.Color:=PanelTop.Color;
//--------载入当前功能窗体信息---------------------------------------------
Self.Caption:='['+Fun_Form.Caption+']';
PanelTopText.Caption:='['+Fun_Form.Caption+'] ';
//------------隐藏壁纸-----------------------------------------------------
MainForm.Wallpaper.Hide;
//------------通过权限管理可以使用的功能按扭-------------------------------
if Fun_Form.U_ADD<>'0' then ADD_Bit.Enabled:=False
else ADD_Bit.Enabled:=True;
if Fun_Form.U_Edit<>'0' then Edit_Bit.Enabled:=False
else Edit_Bit.Enabled:=True;
if Fun_Form.U_Query<>'0' then Query_Bit.Enabled:=False
else Query_Bit.Enabled:=True;
if Fun_Form.U_Del<>'0' then Del_Bit.Enabled:=False
else Del_Bit.Enabled:=True;
if Fun_Form.U_Print<>'0' then Print_Bit.Enabled:=False
else Print_Bit.Enabled:=True;
//-------------------------------------------------------------------------
For I:=0 to Self.ComponentCount -1 do
if Components[I].ClassNameIs('TDBGrid') then //控制DBGrid排序
TDBGrid(Components[I]).OnTitleClick:=DBGrid_TitleClick;
end;
procedure TBase_Form.FormClose(Sender: TObject; var Action: TCloseAction);
begin
//---------------显示壁纸--------------------------------------------------
MainForm.Wallpaper.Show;
Action:=caFree;
if Assigned(Fun_Form.TempForm) then
begin
Fun_Form.TempForm:=nil;
Fun_Form.Run:='0';
end;
//-------------------------------------------------------------------------
end;
procedure TBase_Form.Query_BitClick(Sender: TObject);
begin
if Not Assigned(PublicQuery) then
PublicQuery:=TPublicQuery.Create(self);
end;
end.
上一篇:
BaseStr.pas
下一篇:
雍志祥_基于Ajax的BBS网站_论文正文