【delphi开源代码栏目提醒】:网学会员为广大网友收集整理了,frmVerboseU.pas,希望对大家有所帮助!
unit frmVerboseU;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls;
type
TfrmVerbose = class(TForm)
stbStatusBar: TStatusBar;
edOutput: TRichEdit;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
implementation
{$R *.dfm}
procedure TfrmVerbose.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
end.