【搞定】请远程看一下**

xhsoft

问题：我在一个窗体中的keydown中加了代码。
     单运行本功能的时候可以出现效果，初始化运行时就不会出现效果了。请指教。

xhsoft

还没有人看？？？

lixy

把代码贴出来看看。
最好别上来就写让远程看一下的标题。我们网络环境不好（ps：50%情况下都是一块一块的黑色块），而且很占用时间。如果解决不了，而且我们无法恢复原始环境，我们会主动要求看看实际情况的。

yancm

初始化运行如果是在主界面的话会屏蔽掉此事件，除非showmadel出来。楼主把代码贴出来。我们根据具体的需求，找一下是否有其他替代方案。

xhsoft

procedure TKQSR.BizFormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
var
  lForm: TCT2;
  llform: tct1;
begin
  if key = 113 then
   begin
  lForm := TCT2.Create(self.Context);
  try
    lForm.ShowModal;
  finally
    lForm.Free;
  end;
end;

yancm

可以通过这种方式来替代解决：
在窗体上放一个ActionList,添加一个Action。快捷键设置为F2，在Excute中填写代码：
procedure TMainForm.Action1Execute(Sender: TObject);
var
  lForm: TCT2;
begin
   lForm := TCT2.Create(self.Context);
  try
    lForm.ShowModal;
  finally
    lForm.Free;
  end;
end;

在窗体上放一个SpeedButton,Action设置为刚才添加的Action.然后把SpeedButton的Visible设置为false

xhsoft

搞定，谢谢