afficher une image après exécuter une fonction
salut
mon problème et j'ai une fonction pour actualiser dbgrid mais et trés lent et je veux afficher une image de téléchargement jif qui indique le processus de chargement des données
mais le problème que c'est image n’affiche pas dés le début mais à la fin de la fonction ???
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
void __fastcall TForm1::Button4Click(TObject *Sender)
{
Image1->Visible=True;
//je veux que l'image soit visible
try {
AnsiString query;
SQLQuery1->Close();
//SQLQuery1->UnPrepare();
SQLQuery1->SQL->Clear();
query="SELECT * FROM USER";
SQLQuery1->SQL->Add(query);
SQLQuery1->ExecSQL();
} catch (...) {
}
DBGrid1->DataSource->DataSet->Refresh();
Image1->Visible=fase;
} |
