Hallo,
Delphi-Quellcode:
procedure TfrmExcelDateiExportieren.btPivotTabelleZeigenClick(Sender: TObject);
begin
Timer1.Enabled:= TRUE;
frmWarnhinweis.frmWarnung.Show;
frmWarnhinweis.frmWarnung.Refresh;
FAbfrageClass.MSId:= '%';
FAbfrageClass.MSErmitteln;
Timer1.Enabled:= FALSE;
frmWarnhinweis.frmWarnung.close;
end;
Mit dieser Procedure wird ein Form mit einer Gauge dargestellt. Gauge .Progress soll dann über einen Timer weitergestellt werden.
Delphi-Quellcode:
procedure TfrmExcelDateiExportieren.Timer1Timer(Sender: TObject);
begin
frmWarnhinweis.frmWarnung.Gauge1.Progress:= frmWarnhinweis.frmWarnung.Gauge1.Progress+10;
frmWarnhinweis.frmWarnung.Refresh;
end;
Leider wird das OnTimer-Ereignis aber nicht ausgelöst.
Wie kann man das ändern?
Bis bald Chemiker