Kann bei ShowModal nach den Beenden vorkommen, aber auch bei Abfrage ohne ShowModal
Delphi-Quellcode:
Kassenlisten := TKassenlisten.Create(nil);
try
Kassenlisten.ShowModal;
//mrOK TBitBtn
Screen.Cursor := crSQLWait;
try
//Abfrage
finally
Screen.Cursor := crArrow;
end;
//
finally
Kassenlisten.Free;
end;
ich hoffe der kurz Quelltext hilft weiter