初学者求助——关于Delphi的三个简单问题！！！！(200分)

dos2001 · 2001-10-02

1>VB里的Text1_GotFocus()事件等同于Delphi里Edit的哪个事件？？？（都做密码输入框用时） 2>VB中有Chr(KeyAscii)，在Delphi里应该怎样表示呢？？？ 3>在Delphi里随机函数怎样表示？例如我想获得一个50到100之间的随机数，该怎么写？？？ 希望大家多多指教！！！

卷起千堆雪tyn · 2001-10-02

3 : Random可以获得随机数 2 ：也是用Chr 1 :获得焦点，用Edit.SetFocus;

CJ · 2001-10-02

1.OnEnter是当取得焦点时触发的事件，对应OnExit,setFocus是取得焦点的方法，不叫事件 2.agree 3.agree x := random(9) + 1 ; // 5 <= x <= 10

dos2001 · 2001-10-02

1>VB里有如下代码： Private Sub Text1_GotFocus() ... EndSub 那么在Delphi中用Edit控件时该如何表示呢？ 2>Chr可以吗？为什么我在Delphi中用Chr(KeyAscii)却报出错呢？

BlackBird · 2001-10-02

来自：CJ, 时间：2001-10-2 20:57:00, ID：654475 1.OnEnter是当取得焦点时触发的事件。 上面已经回答你啦……！！！

杜宝 · 2001-10-02

1、用OnEnter事件：

代码:

<br>procedure TForm1.Edit1Enter(Sender: TObject);<br>begin<br>&nbsp; ShowMessage('Enter');<br>end;<br>

2、用法：

代码:

<br>procedure TForm1.Button1Click(Sender: TObject);<br>var<br>&nbsp; c:Char;<br>&nbsp; s:String;<br>&nbsp; i:Integer;<br>begin<br>&nbsp; for i := 65 to 90 do<br>&nbsp; begin<br>&nbsp; &nbsp; c:=chr(i);<br>&nbsp; &nbsp; s:=s+c;<br>&nbsp; end;<br>&nbsp; ShowMessage(s);<br>end;<br>

dos2001 · 2001-10-02

2> 我现在只想知道对于VB中的 Chr(KeyAscii) 一句，在Delphi中可以用什么语句等同代换？？？

D.Q.C · 2001-10-02

1>procedure Tform1.edit1OnEnter(sender:Tobject) beign  your code end;

杜宝 · 2001-10-02

呵呵，大家抢分忙！ 你要的是Integer -> Char还是Char -> Integer 如果是Integer -> Char见我上面一贴 如果是Char -> Integer

代码:

<br>procedure TForm1.Button1Click(Sender: TObject);<br>var<br>&nbsp; c:Char;<br>&nbsp; s:String;<br>&nbsp; i:Integer;<br>begin<br>&nbsp; c:='A';<br>&nbsp; i:=Ord(c);<br>&nbsp; s:=IntToStr(i);<br>&nbsp; ShowMessage(s);<br>end;<br>

dos2001 · 2001-10-02

谢谢各位了！送分！！！！

初学者求助——关于Delphi的三个简单问题！！！！(200分)

dos2001

Unregistered / Unconfirmed

卷起千堆雪tyn

Unregistered / Unconfirmed

CJ

Unregistered / Unconfirmed

dos2001

Unregistered / Unconfirmed

BlackBird

Unregistered / Unconfirmed

杜宝

Unregistered / Unconfirmed

dos2001

Unregistered / Unconfirmed

D.Q.C

Unregistered / Unconfirmed

杜宝

Unregistered / Unconfirmed

dos2001

Unregistered / Unconfirmed

Similar threads