Discussion :

[toure32]

Salut,
a tous je veux executer une action après l'ouverture du form. cad apres le show.
j'ai utilisé mon code dans le onshow mais dans ce cas il est executer juste avant que le forme s'affiche.
comment faire donc.

[Fabrice ROUXEL 1]

Bonsoir

Places le code dans l'événement OnActivate() de la fiche.
La methode SHow() s'execute avant la methode Activate().
@+

[neilbgr]

Par exemple, comme ceci :

Code delphi :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
type
  TForm1 = class(TForm)
  private
    { Déclarations privées }
  public
    function Afficher: Integer;
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
function TForm1.Afficher: Integer;
begin
  Show;
  actActionAFaire.Execute;
end;

Et bien sûr il suffit d'appeler Form1.Afficher;
Et cela implique que la form soit a visible false au départ.

[toure32]

Places le code dans l'événement OnActivate() de la fiche.

je crois savoir que OnActivate() s'execute aussi a chaque fois que le form reçoi le focus.
je veux juste executer ma procedure j'uste après le show. et une seule fois.
cordialement.

[neilbgr]

Bonsoir

Places le code dans l'événement OnActivate() de la fiche.
La methode SHow() s'execute avant la methode Activate().
@+

Attention, l'événement OnActivate() se déclenchera à chaque fois que la form obtiendra le focus !!! pas que sur le OnShow(); ou alors il faut désactiver l'action lorsqu'elle a été faite une fois (ou bien débrancher le OnActivate())

[Fabrice ROUXEL 1]

Oui évidemment.
OnActivate est executé à chaque fois que la fiche est active.

On compléte avec un test et ça roule.