如:Button1.enabled:=False;时字体的颜色为其它颜色
解决方案 »
- ★送分帖,请 dabaicai、xianggang101、xiaokexinger三位朋友进入★
- 杭州的朋友进来帮个忙!
- msn的翻译机器人:[email protected],赶快加入,人数有限!
- 用什么函数可以找出本机上EXCEL文件的路径?
- 哪里能查到 clYellow,clFuchsia等颜色标志,对应的RGB 数据??
- sql 查询语句问题
- 关于字符或字符串用单引号的简单问题!
- 如何把已经学好的程序变成安装的文件?
- 下拉框的自动检索!
- 请问那位知道如何将Delphi中的指针型变量转成字符串变量!
- 怎么把String转换到PChar?立刻给分.
- 如何在DBGrid中双击某单元格以获取当前值?
procedure TForm1.Button1Click(Sender: TObject);
var ec:tcanvas;
begin
try
ec:=tcanvas.create;
ec.handle:=getdc(edit1.handle);
ec.font.color:=clred;
ec.TextOut(0,0,edit1.text);
finally
ec.free;
end;
end;
偶原来解答过的:-)