请教textout输出的字符为何老是有背景色? 请教textout输出的字符为何老是有背景色?多谢指点 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 这样就可以Graphics::TBitmap *Bmp = new Graphics::TBitmap;int OldBkMode;try{ Bmp->LoadFromFile("I:\\earth.bmp"); Form1->Canvas->Draw(0,0,Bmp); Form1->Canvas->Font->Color=clRed; //此处必须要否则看不到文字 Form1->Canvas->Font->Size=12; Form1->Canvas->TextOutA(10,20,"Not Transparent!"); OldBkMode=SetBkMode(Form1->Canvas->Handle, TRANSPARENT); Form1->Canvas->TextOut(100, 150, "Transparent!"); SetBkMode(Handle, OldBkMode);}__finally{ delete Bmp;} canvas.Brush.Style:=bsclear; canvas.Font.Color:=clred; canvas.TextOut(10,10,'要显示的字符'); 同意楼上 cfqdream(软艺)的,canvas.Brush.Style:=bsclear;这句最关键! 热烈庆祝第一个DELPHI节!(散分) 请教个小问题!请给点指点! 如何控制文本框输入的字数 如何判断一个指针指向的内存是否释放 ?多层开发的问题!具体写在里面了 请教无边框窗口拖放 如何注册 WINNT 服务? 面对有数百万记录的数据表,怎么提供程序效率? 嗨... ... 如何判断当前是否在拖动窗体的标题栏?? 菜鸟问题 来着有分 放分!!要考试了~(4)
Graphics::TBitmap *Bmp = new Graphics::TBitmap;
int OldBkMode;
try
{
Bmp->LoadFromFile("I:\\earth.bmp");
Form1->Canvas->Draw(0,0,Bmp);
Form1->Canvas->Font->Color=clRed; //此处必须要否则看不到文字
Form1->Canvas->Font->Size=12;
Form1->Canvas->TextOutA(10,20,"Not Transparent!");
OldBkMode=SetBkMode(Form1->Canvas->Handle, TRANSPARENT);
Form1->Canvas->TextOut(100, 150, "Transparent!");
SetBkMode(Handle, OldBkMode);
}
__finally
{
delete Bmp;
}
canvas.Font.Color:=clred;
canvas.TextOut(10,10,'要显示的字符');
canvas.Brush.Style:=bsclear;
这句最关键!