Delphi使用经验五则

Author: 李文龙 Date: 1998年 第17期 13版

#1  1.实现类似于VB中Doevents函数的功能
  在Delphi中没有类似于VB中的Doevents函数,这样,有的时候,我们将无法使Windows响应多个同时发生的事件,怎么解决这一问题?其实,你可以通过调用Application的ProcessMessage来完成像VB中Doevents函数的功能。
#1  2.格化整数输出
  当比较大的数字输出时会显得不易阅读。这时我们可在Delphi中通过如下方法显示带分节号的数字:×××××.Caption=FormatFloat(′#′,524667500)。
#1  3.制作丰富多彩的标签
  在Delphi只提供了简单的标签,能不能在标签中有不同的字体,不同的颜色呢?回答是肯定的,并且用不着第三方提供的控件,我们只要巧妙的利用Delphi自己提供的TRichEdit就可以了。首先将TRichEdit控件的边框清除:RichEdit1.BorderStyle:=bsNone;同时设置只读属性为真:RichEdit1.ReadOnly:=True;然后,你利用Write之类的软件制作好RichText格式的文本,通过以下语句就可以显示出来了:
  RichEdit1.PlainText:=False;
  RichEdit1.Lines.LoadFromFile(′c:\test.rtf′);
#1  4.在编译时获得提示
  在Delphi 2.0中,编译时,可以让编译器告诉我们一些提示,但因一些特殊需要,我们只要在指定的代码段需要Delphi这样的提示,怎么办?请参考如下的程序:
  {$HINTON}
  procedureTform1.Button1Click(Sender:TObject);
  var
  X:integer;
  begin
  end;
  {$HINTOFF}
#1  5.确定刚才用鼠标击了哪一个对象
  在Windows95中,鼠标的右键起了很大的作用,但在Delphi中,对于右键的使用还不够有效,怎样才能知道刚才鼠标右击的对象名称呢?首先建立一个popmenu,然后以下的代码就可以告诉你刚才右击的对象名称:PopupMenu1.PopupComponent.ClassName。