ufrmmodel.pas

数据库通用工具

unit UfrmModel;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ActnList,dxDBGrid,ExtCtrls;

type
  TfrmModel = class(TForm)
    ActionList1: TActionList;
    actExit: TAction;
    actF1Click: TAction;
    actF2Click: TAction;
    actF3Click: TAction;
    actF4Click: TAction;
    actF5Click: TAction;
    actF6Click: TAction;
    procedure FormCanResize(Sender: TObject; var NewWidth,
      NewHeight: Integer; var Resize: Boolean);
    procedure FormShow(Sender: TObject);
    procedure actExitExecute(Sender: TObject);
    procedure publicKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure actF5ClickExecute(Sender: TObject);
    procedure actF1ClickExecute(Sender: TObject);
    procedure actF2ClickExecute(Sender: TObject);
    procedure actF3ClickExecute(Sender: TObject);
    procedure actF4ClickExecute(Sender: TObject);
    procedure actF6ClickExecute(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure pnlMouseDown(Sender: TObject; Button: TMouseButton;
                Shift: TShiftState; X, Y: Integer);
    procedure pnlMouseUp(Sender: TObject; Button: TMouseButton;
                Shift: TShiftState; X, Y: Integer);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmModel: TfrmModel;

implementation

{$R *.dfm}
procedure TfrmModel.publicKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if key = VK_RETURN then
    sendMessage(Handle,WM_NEXTDLGCTL,0,0);
end;

procedure TfrmModel.FormCanResize(Sender: TObject; var NewWidth,
  NewHeight: Integer; var Resize: Boolean);
begin
  //resize := frmInfo.bResize;
end;

procedure TfrmModel.FormShow(Sender: TObject);
begin
  //AutoScroll := False;
  //Position := poDesktopCenter;
  //Font.Name := '宋体';
  //Font.Size := 9;
  //BorderIcons := [biSystemMenu];

  {yym del
  frmInfo := GetFrmInfo(tag);
  with frmInfo do
  begin
    self.Tag := iTag;
    if trim(sCaption)<> '' then
      self.Caption := sCaption;
  end;
  //}

end;

procedure TfrmModel.actExitExecute(Sender: TObject);
begin
  close;
end;

procedure TfrmModel.actF5ClickExecute(Sender: TObject);
begin
  //
end;

procedure TfrmModel.actF1ClickExecute(Sender: TObject);
begin
  //
end;

procedure TfrmModel.actF2ClickExecute(Sender: TObject);
begin
  //
end;

procedure TfrmModel.actF3ClickExecute(Sender: TObject);
begin
  //
end;

procedure TfrmModel.actF4ClickExecute(Sender: TObject);
begin
  //
end;

procedure TfrmModel.actF6ClickExecute(Sender: TObject);
begin
  //
end;

procedure TfrmModel.FormActivate(Sender: TObject);
var
  vdxgModel : TComponent;
  vPanel : TComponent;
begin
  vDxgModel := self.FindComponent('dxDBGrid1');
  vPanel := self.FindComponent('Panel1');
  if (vDxgModel <> nil) and (vPanel <> nil) then
  begin
    (vDxgModel as TdxDBGrid).HeaderColor :=
      (vPanel as TPanel).Color;
  end;
end;

procedure TfrmModel.pnlMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
//  Edit1.Text := Sender.ClassName;
//  Edit1.Text := (Sender as TPanel).Name;
  if Sender.ClassName = 'TPanel' then
  begin
    (Sender as TPanel).BevelInner := bvLowered;
  end;

end;

procedure TfrmModel.pnlMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Sender.ClassName = 'TPanel' then
  begin
    (Sender as TPanel).BevelInner := bvNone;
  end;
end;

end.