form失去焦点,按键不可用?

Question

在程序运行的过程中需要实现当mdichild：form1获得输入焦点时,button1.enabled:=false; 当其他form获得输入焦点时，button1.enabled：＝false； 请问如何实现？在程序什么位置？

Answer 1

错了,form1获得焦点,button1可用.

Answer 2

在form1等窗体是mdichild,button1在mdi父窗体上.

Answer 3

form1等窗体是mdichild,button1在mdi父窗体上.

Answer 4

用窗体继承：1.建立mdi主窗体，放入button1
2.建立mdi子窗体，onactive里面写
  if lowercase((sender As Tform).Name)='form1'
    then mainform.Button1.Enabled:=true
    else mainform.Button1.Enabled:=false;
3.option选项里把这个子窗体设为available
4.file-new-other-poject1(就是你的工程)-刚刚建立的子窗体
5.重复4
6.将其中一个命名为form1