各位开发组的大佬好,
例如下面这一段代码,我希望是现在看到的这样,比较紧凑:
var
MainForm: TMainForm;
procedure CreateDllForm(AppHandle: THandle; AStyleID: PChar; HostInstance: HINST); stdcall;
procedure ShowDllForm; stdcall;
procedure SetDllFormBounds(ARect: TRect); stdcall;
function QueryDataChanged: Boolean; stdcall;
procedure DestroyDllForm; stdcall;
procedure SetDllStyle(AStyleID: PChar); stdcall;
implementation
{$R *.dfm}
//**************************
一旦用专家包格式化后,变为每个申明下面都带空行,看着不太好看。
var
MainForm: TMainForm;
procedure CreateDllForm(AppHandle: THandle; AStyleID: PChar; HostInstance: HINST); stdcall;
procedure ShowDllForm; stdcall;
procedure SetDllFormBounds(ARect: TRect); stdcall;
function QueryDataChanged: Boolean; stdcall;
procedure DestroyDllForm; stdcall;
procedure SetDllStyle(AStyleID: PChar); stdcall;
implementation
{$R *.dfm}
//**************************
这个我该怎么设置呢?