You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
35 lines
683 B
Plaintext
35 lines
683 B
Plaintext
unit u_ch_fee_zhupiao;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, BusinessSkinForm, u_fee_zhu, Menus, ComCtrls, bsSkinTabs;
|
|
|
|
type
|
|
Tfrm_ch_fee_zhupiao = class(TForm)
|
|
bsBusinessSkinForm1: TbsBusinessSkinForm;
|
|
fra_fee_zhu1: Tfra_fee_zhu;
|
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
frm_ch_fee_zhupiao: Tfrm_ch_fee_zhupiao;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure Tfrm_ch_fee_zhupiao.FormClose(Sender: TObject;
|
|
var Action: TCloseAction);
|
|
begin
|
|
action:=cafree;
|
|
frm_ch_fee_zhupiao:=nil;
|
|
end;
|
|
|
|
end.
|