Bonjour à tous.
Le ridicule ne tuant pas (paraît-il), je vous soumets mon petit problème événementiel : dans une procédure FormActivate, je charge des données dans un ComboBox, ce qui met un peu de temps... Je souhaite donc en faire part à l'utilisateur par un message dans un Edit. Seulement, le message ne s'affiche que quand tout est chargé (ce qui ne sert à rien) ! Toutefois, si j'ajoute un ShowMessage (ce que je ne souhaite pas) ça marche...

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
procedure TForm2.FormActivate(Sender: TObject);
var Article,Libelle:string;
begin
  Form2.Width:=Screen.Width;
  Form2.Height:=Screen.Height-25;
  Form2.Top:=0;
  Form2.Left:=0;
  EditMessage.Visible:=True;
  EditMessage.Text:='Chargement des noms de communes en cours...';
 
  ShowMessage('toto');
 
  // ici, début du chargement des données
Avec le code ci-dessus, c'est Ok ! Si je supprime le ShowMessage, ça foire
D'avance merci !

Alain