?? about.pas
字號:
unit about;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, jpeg, shellapi ;
type
TFrm_about = class(TForm)
Panel1: TPanel;
ProductName: TLabel;
Copyright: TLabel;
Label1: TLabel;
Label2: TLabel;
Version: TLabel;
ProgramIcon: TImage;
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Label1Click(Sender: TObject);
procedure Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Frm_about: TFrm_about;
implementation
{$R *.dfm}
procedure TFrm_about.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = VK_ESCAPE then close ;
end;
procedure TFrm_about.Label1Click(Sender: TObject);
begin
shellexecute(handle,nil,pchar('http://www.adellock.com'),nil,nil,sw_shownormal);
end;
procedure TFrm_about.Label1MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin
Label1.Font.Color := clgreen;
end;
procedure TFrm_about.Panel1MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin
Label1.Font.Color := clblack ;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -