如何将消息框置顶？(20分)

如何将带按钮的消息框置顶？点击主界面，消息框不跑到后台？

MessageBox(）的MB_SETFOREGROUND参数怎么用？

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
const
ENSTR='abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ`1234567890-=/~!#$%^&()_+|[]{};'':",./<>?';
CNSTR='ａｂｃｄｅｆｇｈｉｊｋｌｍｎｏｐｑｒｓｔｕｖｗｘｙｚＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺ｀１２３４５６７８９０－＝＼～！＃＄％＾＆（）＿＋｜［］｛｝；＇：＂，。／＜＞？';
begin
if Pos(Key,ENSTR)>0 then Key:= #0;
end;

不是限制它只能输入全角，而是输入半角时自动转换为全角显示。

你在KEYDOWN 事件判断KEY的值啊，如果是小写你的你转换大写就可以了

不是大小写，是全角半角,8位转16位。

问题: 如何把半角字符转换成全角字符? ( 积分: 200 )
分类: 非技术问题

来自: chensl, 时间: 2000-05-15 18:03:13, ID: 245563
我正在做一个信息采集的程序,遇到一点问题.请教如何把半角字符转换成全角字符?请各位高手帮忙!!

来自: 康夫, 时间: 2000-05-15 18:06:27, ID: 245567

要转换的字符是什么？ 0-9, a..z, A..Z,还是其他的？

来自: wjiachun, 时间: 2000-05-15 18:08:39, ID: 245570
只有键盘字符和一些特殊字符需要区分全角半角，汉字全半角是一样的。

用查找，替换完成吧

来自: 康夫, 时间: 2000-05-15 18:12:49, ID: 245574

建立一个数组，然后查找，变换

0 ０
1 １　　
A Ａ　　

来自: zensst, 时间: 2000-05-15 20:08:43, ID: 245626
Delphi中有TestByte（好象是）函数，用来检测是否是全角字符。

来自: Victortim, 时间: 2000-05-15 22:25:27, ID: 245731
>>

来自: chensl, 时间: 2000-05-16 9:51:54, ID: 246052
请详细解答

来自: 康夫, 时间: 2000-05-16 10:08:12, ID: 246060

Var
Char_BJ = array[1..20] of char; // 半角数组
Char_QJ = array[1..20] of string[2]; // 全角数组

初始化时给两个数组赋值
Char_BJ --> ('1','2','3','4','5',........)
Char_QJ --> ('１','２','３','４','５',........)

function BjToQj(c: char): string;
begin
Result := '';
for i := Low(Char_BJ) to High(Char_BJ) do begin
if Char_BJ = c then begin
Result := Char_QJ;
exit;
end;
end;
end;

来自: cAkk, 时间: 2000-09-15 20:31:54, ID: 337809
多人接受答案了。

得分大富翁: wjiachun-50,康夫-150,

多人接受答案了。