程序运行,系统给出的提示如何以我们自己的语言作出提示?

Question

比如:"违犯了primary key 约祝'xxxxx',不能插入重复健!",系统的消息可以分析,改变,而给出提示吗?

Answer 1

procedure tform1.formcreate(sender:Tobject;
begin
         showmessage('违犯了primary key 约祝xxxxx,不能插入重复健!');
或用  messagedlg('违犯了primary key 约祝xxxxx,不能插入重复健!',mtwarning,mbok);
      等很多系统消息啊
end;
 
请参照 delphi帮助

Answer 2

对不起,可能我说的不太明白,我说的是"违犯了primary key 约祝xxxxx,不能插入重复健!"-----系统给出的信息; 我想用自己的语言给出提示如改为"xxxx已经存在,不能重复录入!"
之类的用户可以明白的通俗话.