position fenetre activeRésolu

Question

Bonjour,


je suis parvenu a récuperer la position de ma fenetre delphi grace à la methode  : Screen.ActiveForm.ClientOrigin; 

mais cela ne fonctionne pas pour les fenetres actives qui ne font pas partie de mon application


en gros j'aimerais connaitre la position d'une fenetre windows active, tout en ayant mon application en arriere plan

si vous avez une piste ce serait top

merci d'avance

tchuss

Cirec · Accepted Answer

Salut,

tu mets un TTimer et un TLabel sur ta fiche 
et tu complètes l'évennement OnTimer comme suit :

procedure TForm1.Timer1Timer(Sender: TObject);
Var rc : TRect;
begin
  Timer1.Enabled :=  False;
  GetWindowRect(GetForegroundWindow, rc);
   With  RC do
  Label1.Caption : = Format('Left:%d - Top:%d ; Right:%d - Bottom:%d', [Left, Top, Right, Bottom]);
  Timer1.Enabled :=  True;
 end ;

 
@+
Cirec

<hr size ="2" />

florenth · Answer

Cirec a tout à fait raison mais j'aurais quand même une question :
pourquoi désactives-tu le timer pour le ré-activer ensuite ? Est-ce une question de performances ou autre ??

Cirec · Answer

C'est juste une habitude 
en même temps cela évite des appels successifs alors que l'appel en cours n'est pas encore arrivé à son terme ... 
bon sur un code comme celui-ci avec un intervalle de 1 seconde c'est pas vraiment utile ... je te le concède bien volontiers 

mais qu'est ce que tu veux ... on ne se refait pas  

 
@+
Cirec

<hr size="2" />

florenth · Answer

Ah OK, c'est pour créer un évènement asynchrone: l'évènement est appelé 1 sec après la fin de l'autre et non pas rigoureusement toutes les secondes.
C'est vrai que c'est utile parfois, particulièrement lorsque l'intervalle est très petite.

Je n'avais jamais pensé à le faire comme ça: j'utilise toujours un thread comme timer dans ces cas-là, c'est plus précis aussi.

Merci pour cette précision.
Et puis maintenant, on n'a plus qu'a attendre la réponse de desstrain ....

A+
Flo

desstrain · Answer

plop les gars ! 

merci beaucoup ! je viens de testé ça fonctionne parfaitement :) par
contre ça freeze un petit peu mais de toute maniere je n'ai besoin de
cet instruction qu'une seule fois . merci beaucoup !

Position fenetre active

5 réponses

Votre réponse

Discussions similaires