现在添加标准过程头就形成了如下的样子:

{-------------------------------------------------------------------------------
  过程名:    TForm1.qry1bbbSetText
  作者:      Luohuachun
  日期:      2008.01.14
  参数:      Sender: TField; const Text: String
  返回值:    无
  说明:
-------------------------------------------------------------------------------}
procedure TForm1.qry1bbbSetText(Sender: TField; const Text: String);
begin
  //ShowMessage(Text);
end;
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
能不能弄成如下这个样子的呢?因为在将上面的代码导入到modelMaker中的时候,过程的注释被丢了顶上去了.再从ModelMaker中导出来的时候,已经弄的面目全非了.这个工程太大了.这么多的注释我只好一个个的放在过程名的第一行下面.累死人!感觉非常不方便.能直接生成当前光标处的过程注释就好了.

procedure TForm1.qry1bbbSetText(Sender: TField; const Text: String);
{-------------------------------------------------------------------------------
  过程名:    TForm1.qry1bbbSetText
  作者:      Luohuachun
  日期:      2008.01.14
  参数:      Sender: TField; const Text: String
  返回值:    无
  说明:
-------------------------------------------------------------------------------}
begin
  //ShowMessage(Text);
end;