unit7.~pas

来自「Delphi写得用来投票的小程序 欢迎下载」· ~PAS 代码 · 共 32 行

unit Unit7;

interface

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

type
  TOKBottomDlg1 = class(TForm)
    OKBtn: TButton;
    Memo1: TMemo;
    procedure OKBtnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  OKBottomDlg1: TOKBottomDlg1;

implementation

{$R *.dfm}

procedure TOKBottomDlg1.OKBtnClick(Sender: TObject);
begin
        Close;
end;

end.