也不对,出现了 Error:This form of method call only allowed for class method. DbNavigator1Click(sender;nbDelete); 就出现 Error:Not enough actual parameters :(
我知道 "," 它就出现这个错误 Error:This form of method call only allowed for class method. ";"就出现: Error:Not enough actual parameters
procedure TForm1.D3Click(Sender: TObject);
begin if (not Dm.ADOTable.Eof) and (not Dm.ADOTable.Bof ) then begin TForm1.DBNavigator1Click(Sender,nbDelete); end; end;procedure TForm1.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn); begin if Button=nbDelete then begin inherited; end; end;
改一下, procedure TForm1.D3Click(Sender: TObject);begin if (not Dm.ADOTable.Eof) and (not Dm.ADOTable.Bof ) then begin DBNavigator1Click(Sender,nbDelete); end; end;
你又没写代码,怎么起作用?你在改改: procedure TForm1.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn); begin if Button=nbDelete then begin ShowMessage("Show me the money"); inherited; end;
Error:This form of method call only allowed for class method.
DbNavigator1Click(sender;nbDelete);
就出现
Error:Not enough actual parameters
:(
"," 它就出现这个错误
Error:This form of method call only allowed for class method.
";"就出现:
Error:Not enough actual parameters
begin
if (not Dm.ADOTable.Eof) and
(not Dm.ADOTable.Bof ) then
begin
TForm1.DBNavigator1Click(Sender,nbDelete);
end;
end;procedure TForm1.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
begin
if Button=nbDelete then
begin
inherited;
end;
end;
procedure TForm1.D3Click(Sender: TObject);begin
if (not Dm.ADOTable.Eof) and
(not Dm.ADOTable.Bof ) then
begin
DBNavigator1Click(Sender,nbDelete);
end;
end;
procedure TForm1.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
begin
if Button=nbDelete then
begin
ShowMessage("Show me the money");
inherited;
end;
不过dbNavigator的ConfirmDelete设为True,再试试。
:(
想偷懒都不行。
///“这是Events又不是dbNavigator的Method,所以不行。”
这句话不懂,能稍稍解释一下否?