classinformation.pas

来自「所有delphi的入门例子」· PAS 代码 · 共 49 行

unit ClassInformation;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
  Buttons, ExtCtrls,comm;

type
  TOKRightDlg = class(TForm)
    OKBtn: TButton;
    CancelBtn: TButton;
    Label1: TLabel;
    Edit1: TEdit;

    procedure OKBtnClick(Sender: TObject);
    procedure CancelBtnClick(Sender: TObject);
  private
    { Private declarations }
  public
    function getintFfrom():integer;
  end;

var
  OKRightDlg: TOKRightDlg;
  intFrom : integer;

implementation

{$R *.dfm}

procedure TOKRightDlg.OKBtnClick(Sender: TObject);
begin
   strClassRoom := edit1.text;
   OKRightDlg.close;

end;

function TOKRightDlg.getintFfrom():integer;
begin
  result:=20;
end;

procedure TOKRightDlg.CancelBtnClick(Sender: TObject);
begin
  close;
end;

end.