问个问题!
我想做个,点击一个按钮,然后弹出一窗口,代码如下
可为何点击后却没有反应,错在哪了?请指教!
procedure TDigitCustAForm.ToolButton1Click(Sender: TObject);
var
 sKey1 : String;
begin
  inherited;
  sKey1:=QY_DigitCust.FieldByName('CustNo').AsString; // Must Edit
  LockWindowUpdate(Handle);
  Screen.Cursor:=crHourGlass;
  ShareForm.P_iFormTag:=010313;
  if not ShareForm.Digit_MDIChildExist('DigitCustForm2') then Application.CreateForm(TDigitCustForm2,DigitCustForm2);
  ShareForm.Digit_OpenIcon(DigitCustForm2);
  Screen.Cursor:=crDefault;
  LockWindowUpdate(0);
  DigitCustForm2.DBEdit1.DataSource.DataSet.Locate('CustNo',Skey1,[])
end;

解决方案 »

  1.   

    应该加上一句
    DigitCustForm2.Show;
    吧?
      

  2.   

    if not ShareForm.Digit_MDIChildExist('DigitCustForm2') then 
    begin
    Application.CreateForm(TDigitCustForm2,DigitCustForm2);
    DigitCustForm2.showmodal;
    end;
      

  3.   

    DigitCustForm2.Show;

    DigitCustForm2.Showmodal;
      

  4.   

    大概问题是出在这了!我再查查!
    if not ShareForm.Digit_MDIChildExist('DigitCustForm2') then Application.CreateForm(TDigitCustForm2,DigitCustForm2);
      

  5.   

    DigitCustForm2.Show;

    DigitCustForm2.Showmodal;
      

  6.   

    if not ShareForm.Digit_MDIChildExist('DigitCustForm2') then 是不是这个条件不成立,造成后面的代码不执行。这种情况是存在的。