问个问题!
我想做个,点击一个按钮,然后弹出一窗口,代码如下
可为何点击后却没有反应,错在哪了?请指教!
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;
我想做个,点击一个按钮,然后弹出一窗口,代码如下
可为何点击后却没有反应,错在哪了?请指教!
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;
DigitCustForm2.Show;
吧?
begin
Application.CreateForm(TDigitCustForm2,DigitCustForm2);
DigitCustForm2.showmodal;
end;
或
DigitCustForm2.Showmodal;
if not ShareForm.Digit_MDIChildExist('DigitCustForm2') then Application.CreateForm(TDigitCustForm2,DigitCustForm2);
或
DigitCustForm2.Showmodal;