我碰到了一个非常奇怪的问题:....大家不妨作个简单的试验
1、新建一个Application。
2、在Form上放两个Edit:Edit1、Edit2,并使Edit1的TabOrder为0,Edit2的TabOrder为1。
3、再新建一个窗体。
4、在Edit2的OnEnter事件中添加代码:
    Form2.Show;
    Self.SetFocus;
    Edit2.SetFocus;
运行后,点击Edit2使之获得焦点,这时Form2显示,焦点应该又回到Edit2中,但是奇怪的是,插入符哪去了?,这时我如果随便输入几个字符,也能在Edit2中显示,但是就是不显示插入符!!!
这是怎么回事,该怎么解决呢?请各位大侠指点。

解决方案 »

  1.   

    他说的插入符应该是指光标
    我也发现了你所说的问题,暂时没有比较好的方法(原因也说不清楚),有这样一个笨方法:
       在Form中加一个Timer1,初始Enabled为False; 相关代码如下:procedure TForm1.Edit2Enter(Sender: TObject);
    begin
      Form2.Show;
      Timer1.Interval := 1;
      Timer1.Enabled := True;
    end;procedure TForm1.Timer1Timer(Sender: TObject);
    begin
      Timer1.Enabled := False;
      Self.Show;
      Edit2.SetFocus;
    end;
      

  2.   

    AirFish(铁甲飞鱼)————插入符??笑什么?这都不知道?sb一个
      

  3.   

    可以这样试一下:
    edit2.selectAll;
    edit2.setfocus;