Discussion :

[OutOfRange]

Bonjour à tou(te)s
A partir d'une appli, je souhaite faire apparaître un message à une date/heure déterminée.
Le seul hic, c'est que le showmessage en question n'est visible que si la fenêtre de l'application est elle-même visible!
Comment faire pour forcer l'affichage par-dessus les autres fenêtres, quelles qu'elles soient
Showmessage est la soluce la plus rapide et la plus simple...
Mais ça ne fonctionne pas!
J'ai aussi essayé une autre TForm... sans succès!
Merci pour votre aide

[badrou]

peut tu nous donner un code d'exemple pour ton probleme

[OutOfRange]

Voilà le code en question

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure Tpal.TimerTimer(Sender: TObject);
var
  c:integer;
begin
  for c:=0 to nbeven do
    if (cateven[c]=8)
    and(dateof(debeven[c])=date)
    and(hourof(debeven[c])=hourof(time))
    and(minuteof(debeven[c])>=minuteof(time))
    and(minuteof(debeven[c])<=minuteof(incminute(time,freqalert)))
    then showmessage(datetostr(date)+'  '+FormatDateTime('hh:mm',time)+chr(10)+comeven[c]);
end;

la propriété interval du timer est à 60000
Donc, chaque minute, l'appli teste si le showmessage doit être activé
Jusque là, no pb
C'est lors du showmessage que je voudrait faire apparaître cette boîte de dialogue par-dessus toutes les autres applis...
Or, le showmessage n'est visible que si la fenêtre de mon appli est elle-même visible
Je sais pas si je me fais bien comprendre

[Droïde Système7]

Bonjour,

Peut-être une piste, une toute petite...

Tu disais :

Le seul hic, c'est que le showmessage en question n'est visible que si la fenêtre de l'application est elle-même visible!

Et si juste avant le ShowMessage, tu "focusais" ta Form ?

Code :

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

1
2
3
4
5
6
...
 then 
begin
TaForm.Visible:=true;
showmessage(datetostr(date)+'  '+FormatDateTime('hh:mm',time)+chr(10)+comeven[c]);
end;

[CaporalKro]

As-tu essayé de créer une fenêtre avec FormStyle = fsStayOnTop ?

Tu pourrais te créer une procedure ShowMessageTop() qui instancie cette fenêtre et met dedans le message passé en paramètre.

[OutOfRange]

Salut J-P

Et si juste avant le ShowMessage, tu "focusais" ta Form ?

J'ai essayé, ça ne fonctionne pas

Code :

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

TaForm.Visible:=true;

laisse la form en arrière-plan
Et en +, je voudrais que seul le showmessage soit visible, pas la form!
Je vais essayer la soluce de CaporalKro

[Pierre Castelain]

Utilise un MessageBox à la place et demande-lui de s'afficher devant la fenêtre de premier plan :

Code :

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

1
2
 
  MessageBox(GetForegroundWindow, 'Hello', 'Et hop!', MB_OK);

[OutOfRange]

Salut Pierre Castelain
Merci pour ta soluce, qui fonctionne
Le pb, c'est que je voudrais afficher un message que je construis en convertissant des variables: 1 datetostr + 1 format datetime + 1 string...
Comment je fais pour loger ça dans un char ? Je parle pas d'un blindé, on est plus le 14 juillet
Plus sérieusement, j'ai toujours eu des pb avec les Pchar... je crois que j'arriverai jamais à m'y faire
Sans te demander un cours particulier, c'est pas le but du forum...
Juste une petite piste

[skywaukers]

bonjour,

tu parles d'un Char ou d'un PChar ?
si c'est d'un PChar (ce que je pense), il te suffit de construire ton message dans un string, puis de le transtyper pour le passer en paramètre :

Code :

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

1
2
 
MaFonction( PChar( MonString));

@++
Dany

[OutOfRange]

Merci Skywaukers
J'opte pour la soluce de Pierre Castelain
Celle de CaporalKro fonctionne aussi!