初学Delphi几个问题

Question

1.case 条件1 of
     1:值=值1;
     2:值=值2;
     3:值=值3;
     4:值=值4;
  end;
2.更改窗体的字体，其它控件的ParentFont:=True;
3.使用资源文件。
4.使用Application.Message(显示信息,信息框标题,信息框样式);
  信息框样式与MessageDlg中的一样。

Answer 1

1、好像没有这种函数
2、只要事先改变form的字体，其他控件就会是一样的字体
3、这个问题我没看懂，不知道是什么意思？
4、要用MessageDLG显示中文只有修改Delphi的源代码，好象是叫const.pas吧，记不太清楚了，
不过你可以用API函数 MessageBox来显示信息，在中文Windows中他就是中文的，具体使用方法
帮助中有。

Answer 2

4.什样修改messagedlg按钮中的的yes,no等,使之为是,否等(我修改了dialog.pas但不见效)关于这个，你可以用MessageBox,Help可看MSDN,也可以搜一搜以前的帖子！

Answer 3

1.打开文件dialogs.pas(在Delphi安装目录的\source\vcl下)
2.查到ButtonCaptions:
3.把 ButtonCaptions: array[TMsgDlgBtn] of Pointer = (
@SMsgDlgYes, @SMsgDlgNo, @SMsgDlgOK, @SMsgDlgCancel,
@SMsgDlgAbort,
@SMsgDlgRetry, @SMsgDlgIgnore, @SMsgDlgAll,
@SMsgDlgNoToAll, @SMsgDlgYesToAll,
@SMsgDlgHelp);
改为
ButtonCaptions: array[TMsgDlgBtn] of string = (
'是', '否', '确定', '取消', '退出',
'重试', '跳过', '所有', '全不',
'YesToAll', '帮助');
4把 LoadResString(ButtonCaptions[B])
改为ButtonCaptions[B]
（注意共有二处）
5 编译成dialog.dcu文件
(在..\delphi 4.0\source\vcl
所在目录下运行dbcc32 dialog.pas)
6并将编译生成dialog.dcu文件拷贝到
..\delphi 4.0\lib目录下即可。
7重启DELPHI创建一个APPLICATION
在窗口中一个button1
在button1的click事件中写showmessage('测试showmessage');
　---- 运 行 即 可 发 现 提 示 信 息 以 汉 化

Answer 4

2>1?2:1;这是C下的写法其余的如 Fox系列有 iif(2>1,2,1)相信Delphi也会有的不是聪明的程序员用Delphi吗@_@

Answer 5

我也是菜鸟，我想用TString数组可以实现第三个问题吧

Answer 6

1：写一个函数
function iif(Test:Boolean;V1,V2:Variant):Variant;  // 用变体类型
begin
  if Test then result:=V1
  else result:=V2;
end;或者用函数重载：
function iif(Test:Boolean;V1,V2:integer):integer;Overload;
...
function iif(Test:Boolean;V1,V2:real):real;Overload;
...3:写一个过程，用来从外部文件（如ini文件）中读取文本，并改写所有组件的Caption属性和相关的Text属性。另外有关的提示信息也可以在这里更改。
我是这样做的，这样就是在软件工作时也可以动态装入相关的语言库。

Answer 7

To:SGP(程式男孩)
你有没有考虑过运行速度，而且有多麻烦！
希望大家集思广益，多探讨这个问题！谢谢！

Answer 8

自己写函数好了。或者用CASE语句

Answer 9

我自己已经解决，在New-Resource dll wizard中