[VCL] Ajouter bouton dans un StatusBar

**Pedro** · 14/02/2005, 13h49

Salut
bon, je me résoud à vous poser cette question après maintes recherches sur le forum et dans la faq ainsi que dans l'aide Delphi:
Je voudrais qu'un des panels de ma TStatusBar soit un bouton avec un possibilité de rester Down (un peu comme AutoCAD et la fonction Ortho et les autres pour ceux qui connaissent)...

Merci d'avance en espèrant avoir bien cherché

**cpdump** · 14/02/2005, 14h22

Voila un bout de code non testé.

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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
Author: Alex Schlecht <alex@bombus.de>
Homepage: http://www.bombus.de
 
 
{
Including Components into a Statusbar
 
The TStatusbar usually does not allow to place components on itself. But
sometimes it would be very fine to add -for example- a TProgressBar on a
Statusbar.
 
This Article shows how to add components to a TStatusbar and how to fit it
into one of the Statusbar-Panels.
 
 
First apologize my bad english: I'm a programmer, not a translator ;-)
 
There are (at least) two ways to add Components on your Statusbar:
 
 
1. Create an own Statusbar-Object
=================================
 
Create your own Statusbar and allow to add components on it. This is
possible in overriding the Create-Constructor:
}
 
type
 TMyStatusBar = class(TStatusBar)
 public
  constructor Create(AOwner: TComponent); override;
 end;
 
implementation
 
constructor TMyStatusBar.Create(AOwner: TComponent);
begin
 inherited Create(AOwner);
 ControlStyle:= ControlStyle + [csAcceptsControls];
   //that's all !!
end;
 
{
That's all! Now this component accept other components as "Children" and you
can put them at design-time onto the statusbar!
 
But I don't like this way very much because you have to use this new
component. I prefer to use the "old" components and manipulating them a
little bit. So lets have a look to my favourite way:
 
 
2. "Adopt" the other component
==============================
 
 
The simplest way to include components to a statusbar is to adopt the
component! Place the TStatusbar on your Form, also place the Progressbar (or
other component you wish to include on your Statusbar) on the form (!). Then
do this in the "OnShow" Event of the Form:
}
 
     Progressbar1.Parent := statusbar1;
     Progressbar1.top    := 1;
     Progressbar1.left   := 1;
 
{
Now the Progressbar is "adopted" by the Statusbar.
 
But unfortunatley it doesn't look very nice because the Progressbar is
larger than the panel and the position is not correct. So we have to
determine the exact position of the Progresbar by using the Statubar's
border, width and height. (We have to add this code to the "OnShow" Event of
the form, because in the "OnCreate" event still no Handles are avalible.)
 
}
 
procedure TForm1.FormShow(Sender: TObject);
 var r : TRect;
begin
 Statusbar1.perform(SB_GETRECT,0,integer( @R ));
   //determine the size of panel 1
 
  //SB_GETRECT needs Unit commctrl
  // 0 = first Panel of Statusbar; 1 = the second and so on.
 
 progressbar1.parent := Statusbar1; //adopt the Progressbar
 
 progressbar1.top := r.top; //set size of
 progressbar1.left := r.left; //Progressbar to
 progressbar1.width := r.right-r.left; //fit with panel
 progressbar1.height := r.bottom-r.top;
 
end;
 
{
Now the Progressbar fits exactly into the first panel of the statusbar! If
you want to use the second or another panel, you only have to change the
parameter of the "perform" command.
 
 
Comments and improvements are welcome!!
 
Alex Schlecht
Alex.schlecht@skw.com
}

**Lung** · 14/02/2005, 14h26

Moi, je fais ca pour ajouter une ProgressBar :

Code :

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

1
2
3
4
5
6
7
   StatusBar.ControlStyle := StatusBar.ControlStyle + [csAcceptsControls];
   ProgressBar.Parent := StatusBar;
   ProgressBar.SetBounds(430, 2, 320, 16);
   ProgressBar.Position := 0;
   ProgressBar.Visible := False;
   PostMessage(ProgressBar.Handle, $0409, 0, clNavy);   //.Couleur de la barre de progression.
   ProgressBar.BringToFront;