小 小航 Unregistered / Unconfirmed GUEST, unregistred user! 2006-03-05 #1 我有个问题请教大家,我要把一个普通的窗体变成一个字体在桌面上显示,且这个字体为当前的动态时间,我该怎么做! 另外,在那里有免费下载的第三方控见!
R rabbitlzx Unregistered / Unconfirmed GUEST, unregistred user! 2006-03-05 #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;
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;
Z zikao419 Unregistered / Unconfirmed GUEST, unregistred user! 2006-03-05 #4 放一个lable1空件,放一个time空件,在time的timer事件中输入下面的语句: lable1.caption:=now; OK?
R rabbitlzx Unregistered / Unconfirmed GUEST, unregistred user! 2006-03-05 #5 少了一句 with Label1 do begin Color:= TransColor; Font.Color:= clRed; Caption:= TimeToStr(Time);////////////////////////// end;
少了一句 with Label1 do begin Color:= TransColor; Font.Color:= clRed; Caption:= TimeToStr(Time);////////////////////////// end;
B billwillman Unregistered / Unconfirmed GUEST, unregistred user! 2006-03-12 #8 Beginpath TextOut endpath PathToRegion SetWindowRgn StrokeAndFillPath 用上面的函数就可以了 执行顺序就是上面给函数的顺序 我已经试过了可以的
Beginpath TextOut endpath PathToRegion SetWindowRgn StrokeAndFillPath 用上面的函数就可以了 执行顺序就是上面给函数的顺序 我已经试过了可以的
3 340340 Unregistered / Unconfirmed GUEST, unregistred user! 2006-03-12 #9 rabbitlzx的是正解,下载控件可到www.2ccc.com去下.免费的
