底下 放flash
上面
s := formatdatetime('yyyy-mm-dd hh:nn:ss', now);
beginpath(canvas.handle);
textout(canvas.handle, 0, 0, pchar(s), length(s));
endpath(canvas.handle);
r1 := pathtoregion(canvas.handle);
getrgnbox(r1, rct);
r := createrectrgnindirect(rct);
combinergn(r, r, r1, RGN_DIFF);
deleteobject(r1);
setwindowrgn(handle, r, true);
此例只是显示一行字,但用于label的效果无法显示,而且一个form 只
显示一种字体,太单调了,有没有别的办法使其显示更好看些,如颜色过渡
但要求不要有背景,不要覆盖运行的flash
