Discussion :

[gilles641]

Bonjour,
Je suis toujours en train de bosser sur ma barre d info defilante mais on me demande une chose qui m a l air assez compliquee ( j espere me tromper )
Je voudrai en fait que lorsque je lance ma barre de defilement, toutes mes fenetres ouvertes se decalent en dessous de cette derniere de maniere a ce qu on ne puisse louper aucune info.
Il faudrait que toutes les fenetres changent de tailles.
Quelqu un voit comment faire ce ?

[Nono40]

Les fenêtres de ton appli seulement ou de toutes les applis ouvertes ?

[gilles641]

les fenetres de toutes les applis ouvertes, voila le probleme

[gilles641]

Je vais essayer de bosser ac l api windows en recuperant les handlers des fenetres... je pense pas kon puisse faire autrement...

[gilles641]

Pour faire ce que je veux, j essaye d utiliser la fonction setwindowpos de lapi windows.
J aimerai decaler toutes les fenetres ayant un top > -30 par ex et fixer leur top a -30. Le probleme c que les fenetres se reduisent ou bien ne s affichent plus ac les memes proprietes.
Comment est il possible de preserver les parametres des fenetres et juste changer leur dim et leur pos
merci d avance

[gilles641]

voila mon code, ca marche pr qqs fenetres mais les navigateurs ouverts sont reduits et ne s ouvrent plus, je comprends pas ce qui se passe...
merci d avance

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
function GetTitle (Hwnd: THandle; Param: Pointer): Boolean; stdcall;
 
var
 
  Text: string;
  rect:Trect;
  width:integer;
  height:integer;
  consta:longword;
 
 
begin
 
  SetLength (Text, 100);
 
  GetWindowText (Hwnd, PChar (Text), 100);
  GetWindowRect (Hwnd,rect);
  width:=rect.Right-rect.Left;
  height:=rect.top-rect.bottom;
 //if (rect.top<30) then
 begin
  //ShowMessage(IntToStr(width)+' '+IntToStr(height));
  movewindow(hwnd,rect.Left,rect.Top,width-50,height,true);
  //EnableWindow(hwnd,true);
 // ShowMessage(IntToStr (Hwnd) + ': '+ Text+'top='+Inttostr(rect.top));
  form1.ListBox1.Items.Add (
 
    IntToStr (Hwnd) + ': '+'top='+Inttostr(rect.top)+ Text+'top='+Inttostr(rect.top));
  Result := True;
  end;
 
end;
 
procedure Tform1.Button1Click(Sender: TObject);
 
var
 
  EWProc: EnumWindowsProc;
 
begin
 
  ListBox1.Items.Clear;
 
  EWProc := GetTitle;
 
  EnumWindows (@EWProc, 0);
 
end;

[gilles641]

c bon jai trouve mon erreur, le tout etait dans le calcul de height qui etait inverse, erreur de ma part vis a vis des coordonnees..
Merci quand meme