?? settings.pas
字號:
Unit settings;
Interface
Uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls;
Type
TSettingsForm = Class(TForm)
Procedure Timer1Timer(Sender: TObject);
Private
{ Private declarations }
Public
{ Public declarations }
End;
Var
SettingsForm : TSettingsForm;
Implementation
Uses main;
{$R *.DFM}
Procedure TSettingsForm.Timer1Timer(Sender: TObject);
Var w : twincontrol;
Begin
w := FindVCLWindow(Point(mouse.cursorpos.x, mouse.cursorpos.y));
If w <> Nil Then caption := w.Name Else caption := 'nil';
End;
End.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -