Discussion :

[CyberTwister]

Coucou

je voudrai juste detecter l'evenement de la creation (du lancement) de mon programme.
J'ai donc essayer un FormCreate avec un simple showmessage:

Code :

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
21
22
23
24
25
26
27
28
29
30
unit Unit4;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
 
type
  TForm4 = class(TForm)
   procedure FormCreate(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form4: TForm4;
 
implementation
 
{$R *.dfm}
 
procedure TForm4.FormCreate(Sender: TObject);
begin
ShowMessage('test');
end;
 
end.

Hors le message ne s'affiche pas...
Pourriez vous m'expliquer comment afficher un simple showmessage au lancement de l'appli svp ?

merci pour toute info :-)

[shell13010]

Bizarre que sa marche pas

sinon tu peux le faire avec OnShow

Code :

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
21
22
23
24
25
26
27
28
29
30
unit Unit4;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
 
type
  TForm4 = class(TForm)
   procedure TForm4.Onshow(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form4: TForm4;
 
implementation
 
{$R *.dfm}
 
procedure TForm4.Onshow(Sender: TObject);
begin
ShowMessage('test');
end;
 
end.

voila si tu veux aussi afficher la form deriere ton message?
sert toi de OnActivate

[b_reda31]

Bizarre que sa marche pas

Oui c'est vrai

Form4,est ce votre fiche principale?
De toute façon vous verrez afficher le message lors de l'exécution de l'application et non pas lors de l'affichage de la forme en question.Si ce n'est pas ce que vous voulez,vous devez plutôt utiliser l'événement OnShow comme vous l'a proposé shell13010

[evarisnea]

je voudrai juste detecter l'evenement de la creation (du lancement) de mon programme.
...
Pourriez vous m'expliquer comment afficher un simple showmessage au lancement de l'appli svp ?

c'est mieux d'inclure le showmessage dans le dpr non ?
tu fais menu projet-voir le source, et tu insères ton showmessage quelque part.

[edam]

c'est mieux d'inclure le showmessage dans le dpr non ?
tu fais menu projet-voir le source, et tu insères ton showmessage quelque part.

si tu fait sa, n'oublie pas d'ajouter unite "Dialogs" en uses de l'unité Projet

[CyberTwister]

Le Onshow marche, merci
(mais c'est bizarre pour le create)