?? settings.pas
字號:
unit settings;
interface
uses
main,
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, Buttons;
type
TSettingsForm = class(TForm)
colorBox: TColorListBox;
btnOk: TBitBtn;
private
{ Private declarations }
protected
procedure CreateParams (var Params: TCreateParams); override;
public
class procedure Execute;
end;
implementation
{$R *.dfm}
procedure TSettingsForm.CreateParams(var Params: TCreateParams);
begin
inherited;
with Params do
begin
ExStyle := ExStyle or WS_EX_TOPMOST;
WndParent := GetDesktopwindow;
end;
end;
class procedure TSettingsForm.Execute;
begin
with Create(nil) do
try
colorBox.Selected := MainForm.Color;
if ShowModal <> mrCancel then MainForm.Color := colorBox.Selected;
MainForm.Repaint;
finally
Release;
end;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -