mainu.~pas

来自「n后问题,有界面。」· ~PAS 代码 · 共 63 行

unit MainU;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls,NqueenU;

type
  TForm1 = class(TForm)
    PaintBox1: TPaintBox;
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
    nq:TNqueen;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation



{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  dstep:=true;
  nq:=TNqueen.create(false);
  button1.enabled:=false;
  button2.enabled:=true;
  button3.enabled:=true;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if dstep=false then
  begin
    nq.suspend;
    dstep:=true end
  else
    nq.resume
  end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  dstep:=false;
  nq.resume;
end;

end.