Discussion :

[numeror]

Bonjour , comment allez vous depuis tout ce temps ? J'ai un petit problème d'apparition de fiche.

J'ai une fiche astuce du jour et donc avec son option "afficher" au démarrage. J'utilise l'événement OnShow de ma MainForm pour afficher la fiche correspondante. Le problème c'est quelle s'affiche et qu'il faut que je la ferme pour afficher ma mainform et donc je voudrais qu'elle s'affiche après ma mainform, voici mon code pour afficher la fiche astuce du jour :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure TMainForm.FormShow(Sender: TObject);
begin
  with TTipsOfDayForm.Create(Self) then
    try
      ShowModal;
    finally
      Free;
    end;
end;

J'ai essayé avec OnPaint, ça marche, mais il faut passer un paramètre pour éviter qu'elle s'affiche à chaque fois qu'il y a un changement sur la fiche.

Merci de vos réponses

[Charly910]

Bonjour,

dans le OnShow de ta Form principale, utilise Show au lieu de ShowModal et met la fiche Tip en fsStayonTop

A+
Charly

[numeror]

Bonjour ,

Le fait de mettre fsSTayOnTop et show ne fait pas apparaitre la fiche principale avant la fiche astuces, c'est encore l'inverse faut fermer la fiche astuce pour avoir la fiche principale.

Desole

[Andnotor]

Le fait de mettre fsSTayOnTop et show ne fait pas apparaitre la fiche principale avant la fiche astuces, c'est encore l'inverse faut fermer la fiche astuce pour avoir la fiche principale.

Show n'est pas bloquant contrairement à ShowModal mais la fiche Astuce apparaîtra toujours légèrement avant si appelée depuis OnShow de la principale.

Le plus simple est simplement de l'appeler par un timer.
Sinon, la fiche principale peut aussi s'envoyer un message par PostMessage :

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
const
  WM_SHOWTIP = WM_USER;
 
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    procedure WMShowTip(var Message :TMessage); message WM_SHOWTIP;
  end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  PostMessage(Handle, WM_SHOWTIP, 0, 0);
end;
 
procedure TForm1.WMShowTip(var Message: TMessage);
begin
  with TTipsOfDayForm.Create(nil) then
  try
    ShowModal;
  finally
    Free;
  end;
end;

[numeror]

Re,

Toute les façons de faire se relevant infructueuse , j'ai donc decide de garder la fonction onpaint. plus facile a gerer.

Merci quand meme

[guillemouze]

Toute les façons de faire se relevant infructueuse , j'ai donc decide de garder la fonction onpaint. plus facile a gerer.

Plutôt que le OnPaint, tu peux utiliser le OnActivate

[Charly910]

Bonjour,

Envoyé par numeror
Le fait de mettre fsSTayOnTop et show ne fait pas apparaitre la fiche principale avant la fiche astuces, c'est encore l'inverse faut fermer la fiche astuce pour avoir la fiche principale.

tu dois avoir un problème autre, car dans un petit exemple fait avec D7, avec Show, les 2 fenêtres apparaissent quasiment simultanément. La Form tip est au dessus de la form principale, a priori c'est exactement ce que tu veux (même si comme le dit AndNotOr, il peux y avoir un très léger décalage, invisible à l'oeil)

A+
Charly