procedure TMainForm.FormPaint(Sender: TObject);
var fontrecall:tfontrecall;
begin
fontrecall:=tfontrecall.Create(canvas.Font);
try
setbkmode(canvas.Handle,windows.TRANSPARENT);
canvas.Font.Color:=clwhite;
canvas.Font.Style:=[fsitalic,fsbold];
canvas.Font.Size:=16;
canvas.Font.Name:='times new roman';
canvas.TextOut(19,19,'http://www.borland.com');
canvas.Font.Color:=clgray;
canvas.TextOut(20,20,'http://www.borland.com');
canvas.Font.Assign(fontrecall.Reference);
finally
fontrecall.Free;
end;
在窗体的事件相應窗口onpaint屬性雙擊輸入即可