如颜色、大小等等
解决方案 »
- SQL2000 连接的问题
- delphi7.0的DBExpress数据控件一连接就报错.
- 怎样取得CXGRID新增一行各个格子内容,因为保存时我要验正是否有输入内容?
- 为什么是_AddRef而不是AddRef
- 请问dxtreelist怎么实现按数字大小进行排序?
- 谁有 devexpress cxGrid 4.5 的整套控件包和源码?
- delphi6开发中怎样能看到中间层的实体BEAN
- 为什么我SUM的值总是很大??????
- 如何利用Delphi存取任何格式的图片文件 到SQLSERVER数据库中
- help me!我等得好辛苦!!!图片传送?!?!?!? up有分!!!!
- 100分寻找条码打印的解决方案
- 我想用paradox做一个单机版的软件,想知道一些paradox操作相关的Sql语句
改变系统字体后调出,就可以实现
加上label的字体及大小及可
message MessageBoxMessage;
procedure TForm1.MessageBoxSetPasswordChar(var Msg: TMessage);
begin
with Screen.Forms[0] do
begin
font.Name:= '宋体';
font.Size:=15;
end;end;
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
PostMessage(Handle, MessageBoxMessage, 0, 0);
I:=Messagedlg('Input Box', mtinformation,[mbok],0);
end;