Calcul dans un OnShow

Version imprimable

18/09/2017, 12h15
exyacc

Calcul dans un OnShow

bonjour,

j'ai une form qui appelle une autre form quand je click un bouton, dans cette seconde form j'ai une procedure affiche_grid qui demande 2-3 secondes, mais j'aimerai voir ma 2nd form avant que l'affichage de la grid soit fini...
je dois le mettre ailleurs ou mettre dans un timer ....
merci

exyacc

une solution simple est d'utiliser PostMessage(Handle, WM_USER, 0, 0) et de déclarer une méthode WM_USER...le message est traité en dernier.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Déclarations privées }
    procedure WMUser(var Msg: TMessage); message WM_USER;
  public
    { Déclarations publiques }
  end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  PostMessage(WM_USER, 0, 0);
end;
 
procedure TForm1.WMUser(var Msg: TMessage);
begin
// calcul
end;

19/09/2017, 09h44
exyacc

merci beaucoup, ça marche nickel

bonne journée

gloire a toi, oh toth dieu lunaire !

ps: il manque handle en premier paramètre du postmessage