settings.pas

来自「The all mighty mouse: you can have more 」· PAS 代码 · 共 50 行

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.