fformtest.obs

来自「格式化源码的最新板」· OBS 代码 · 共 5 行

unit fformtest;interface uses windows,messages,sysutils,classes,graphics,controls
,forms,dialogs,stdctrls,buttons;type tformtest=class(TForm)bbclose:tbitbtn;mnotice
:tmemo;procedure bbcloseclick(sender:tobject);private public end;var formtest:tformtest
;implementation {$R *.DFM}procedure tformtest.bbcloseclick(sender:tobject);begin 
close;application.terminate;halt;end;end.