Delphi编写制作一款形象的电子表（钟表）效果，模拟时钟，界面方面做成了圆形，看不见窗口的边框，像是透明的窗口，各个指针会走动，关于各个指针的移动及计算方法，有兴趣可参考： vh := Hour/12.0*2*Pi; vm := Min/60.0*2*Pi; vs := Sec/60.0*2*Pi; with Canvas do begin Pen.Width:=4; Pen.Color := clBlack; MoveTo(60,60); Lin
拖动无边框窗体的例子，演示了具体的实现方法，基于VB6.0编写，一个很实用的移动无标题栏窗体的例子，拖动无边框窗体其实现方法简单，很值得借鉴。以下是关键部分的代码： Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single) If Button = 1 Then Checking for Left Button only Dim ReturnVal As Long
