When I click on a button the Data is valid but when I write in my code that the button should be clicked it says my paramters are wrong:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TGenerateReports_F.GenReport_BBClick(Sender: TObject);
var ResultQuery:String;
begin
  // If I click on this button "GenReport_..." (using my mouse) I get validateData = True
  // when I call this from another procedure: "GenReport_BBClick(Self);" It says ValiddateData = False
     if ValidateData = False then
        Exit;
     if QueryNr <> -1 then
     begin
          ResultQuery := GetResultQuery;
          if TestQuery(ResultQuery)= False then
             Exit;
     end
     else
     begin
          if BuildSql = False then
             Exit;
          DiffPageCol := '';
          if BuildReportData = False then
          begin
            Application.MessageBox(PChar('Kein Daten für diese Abfrage'),'SASE-Bericht',mb_ok);
            Exit;
          end;
          if GenerateExcelReport = False then
          begin
             Application.MessageBox(PChar('Kein Daten für diese Abfrage'),'SASE-Bericht',mb_ok);
             XLApp:= Unassigned ;
          end;
     end;


procedure TGenerateReports_F.Report_Automatik;
begin
    // From Here I get an error message
     GenReport_BBClick(Self);
end;

Any suggestions?

Thanks,
Shidap

Button1.Click; Should do.

Try "Button1.Click;" (Button1 = Buttonname)
This should work :>

Edit: 2 slow :/

unfortunately that doesn't do it either.
When I "Physically" click on the button than it works. When send a click
Button1.Click or button1_Click(self) - The validation doesnot work!

It works now:

markieren

Delphi-Quellcode:

       GenReport_BB.SetFocus;
       GenReport_BB.Click;

Thanks for your Help!