classinformation.~pas

所有delphi的入门例子

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);
  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;
   comm.se
   //comm.l.label3.Caption := strclassroom;

end;

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

end.