Discussion :

[alainvh]

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

[Paul TOTH]

attention, Activate n'est pas forcément le meilleur évènement pour ce genre de chose.

j'utilise souvent la méthode suivante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
procedure TForm1.OnCreate(Sender:TObject);
begin
 PostMessage(Handle,WM_USER,0,0);
// c'est bien un POST et non un SEND car on veux sortir du OnCreate
end;
 
procedure TForm1.WMUser(var Msg:TMessage); // message WM_USER
begin
 // chargement...
end;

l'autre solution que je vois souvent est l'utilisation d'un Timer qui déclenche un l'événement au début de l'application...mais je trouve ça moins propre

mais si le chargement est vraiment long, le mieux est un Thread puisque sinon la fenêtre deviendra blanche dès qu'on la bouge (pas de traitement du message Paint)

[J-P-B]

salut
- soit tu ajoutes un application.processmessages
- soit tu fait un EditMessage.Paint

JP

[Ben_Le_Cool]

Tu peux rajouter un Application.ProcessMessages.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
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...';
  Application.ProcessMessages;
 
  // ici, début du chargement des données

[alainvh]

Merci à tout deux, tothpaul et J-P-B

La solution avec un application.processmessages (je ne connaissais pas) me satisfait totalement.
Ce que me propose tothpaul me semble un trop fort vu mes connaissances

Bonne soirée. Amicalement

Alain

[alainvh]

Merci à toi également, Ben_Le_Cool, mais tu as dégainé un peu tard

[Ben_Le_Cool]

Merci à toi également, Ben_Le_Cool, mais tu as dégainé un peu tard

Surement a cause de l'age