📄 sys_bas.pas
字号:
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.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -