Problème avec OnShow de ma fiche principale

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:

---

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

Bonjour,

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

A+
Charly

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

Citation:

---

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.

---

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:

---

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;

---

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

Citation:

---

Envoyé par numeror

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

Bonjour,

Citation:

---

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