uinserttable.pas

来自「一个基于不需引擎的文件管理系统,使用了许多界面比较好的控件」· PAS 代码 · 共 56 行

unit uInsertTable;

interface

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

type
  TInsertTabfrm = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    seCols: TRVSpinEdit;
    seRows: TRVSpinEdit;
    GroupBox2: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    btnOk: TButton;
    Button1: TButton;
    procedure btnOkClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    FCols:integer;
    FRows:integer;
    FBestWidth:integer;
  public
    { Public declarations }
    property Cols:integer read FCols;
    property Rows:integer read FRows;
    property BestWidth:integer read FBestWidth;
  end;

implementation

{$R *.dfm}

procedure TInsertTabfrm.btnOkClick(Sender: TObject);
begin
  FCols:=seCols.AsInteger;
  FRows:=seRows.AsInteger;
  if RadioButton1.Checked then
    FBestWidth:=0
  else if RadioButton2.Checked then
    FBestWidth:=-100;  
  ModalResult:=mrOk;
end;

procedure TInsertTabfrm.Button1Click(Sender: TObject);
begin
  ModalResult:=mrCancel; 
end;

end.