库存管理软件版1楼: 我有个问题请教大家,我要把一个普通的窗体变成一个字体在桌面上显示,且这个字体为当前的动态时间,我该怎么做! 另外,在那里有免费下载的第三方控见!

2楼: 很简单，你邮箱
我发给你 如会计电算化软件

3楼: const TransColor: TColor = clBlack;

procedure TForm1.FormCreate(Sender: TObject);
begin
with Form1 do
begin
Color:= TransColor;
TransparentColor:= True;
TransparentColorValue:= TransColor;
end;
with Label1 do
begin
Color:= TransColor;
Font.Color:= clRed;
end;

end;

4楼: 放一个lable1空件,放一个time空件,在time的timer事件中输入下面的语句:


lable1.caption:=now;

OK？

5楼: 少了一句

with Label1 do
begin
Color:= TransColor;
Font.Color:= clRed;
Caption:= TimeToStr(Time);//////////////////////////
end;

6楼: 你可以自己设置一下显示的位置

库存管理软件版7楼: 老板，结帐好么

8楼: Beginpath
TextOut
endpath
PathToRegion
SetWindowRgn
StrokeAndFillPath
用上面的函数就可以了
执行顺序就是上面给函数的顺序
我已经试过了可以的

9楼: rabbitlzx的是正解,下载控件可到www.2ccc.com去下.免费的