shadow.pas

来自「小区水费管理系统源代码水费收费管理系统 水费收费管理系统」· PAS 代码 · 共 38 行

unit shadow;

interface

uses
  Windows, Messages, SysUtils, Classes, Forms, se_controls, KsSkinForms,
  Controls, KsSkinCheckBoxs;

type
  TfrmShadow = class(TForm)
    NgCheckBox1: TSeSkinCheckBox;
    NgForm1: TSeSkinForm;
    procedure NgCheckBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmShadow: TfrmShadow;

implementation

uses main;

{$R *.DFM}

procedure TfrmShadow.NgCheckBox1Click(Sender: TObject);
begin
  if NgCheckBox1.Checked then
    NgForm1.Dragging.DragMode := kfdmBorder
  else
    NgForm1.Dragging.DragMode := kfdmFullDrag;
end;

end.