sys_bas.pas

来自「一个MRPII系统源代码版本」· PAS 代码 · 共 64 行

unit Sys_Bas;

Interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Base_Common, ExtCtrls, jpeg, Base, Db, AdODB, StdCtrls;

Type
  TFrm_Sys_Bas = Class(TFrm_Base_Common)
    Image1: TImage;
    Label1: TLabel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
    procedure ImageFocus(Sender:Tobject);
    procedure LabelFocus(Sender:Tobject);
  public
    { Public declarations }
  end;

var
  Frm_Sys_Bas: TFrm_Sys_Bas;

implementation

{$R *.DFM}
procedure TFrm_Sys_Bas.ImageFocus(Sender:Tobject);
begin
  {Label1.Font.Style:=Label1.Font.Style-[FsUnderLine];
  Label2.Font.Style:=Label1.Font.Style-[FsUnderLine];
  Label3.Font.Style:=Label1.Font.Style-[FsUnderLine];
  Label5.Font.Style:=Label1.Font.Style-[FsUnderLine];
  Label7.Font.Style:=Label1.Font.Style-[FsUnderLine];
  Label8.Font.Style:=Label1.Font.Style-[FsUnderLine];
  Label8.Font.Style:=Label1.Font.Style-[FsUnderLine];
  Label9.Font.Style:=Label1.Font.Style-[FsUnderLine];
  Label11.Font.Style:=Label1.Font.Style-[FsUnderLine];
  Label30.Font.Style:=Label1.Font.Style-[FsUnderLine];
  Label32.Font.Style:=Label1.Font.Style-[FsUnderLine];
  Label34.Font.Style:=Label1.Font.Style-[FsUnderLine];
  Label36.Font.Style:=Label1.Font.Style-[FsUnderLine];
  Label38.Font.Style:=Label1.Font.Style-[FsUnderLine];}
end;

procedure TFrm_Sys_Bas.LabelFocus(Sender:Tobject);
begin
  if TLabel(Sender).Enabled=True then
  begin
    TLabel(Sender).Font.Style:=TLabel(Sender).Font.Style+[FsUnderLine];
    TLabel(Sender).Cursor:=crHandPoint;
  end;
end;


procedure TFrm_Sys_Bas.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  Action:=cafree;
end;

end.