Création d'un espace blanc où inserer des objets graphiques avec ScrollBar
Bonjour,
Pour mon application je cherche un conteneur (de preference de couleur de fond blanc) pour créer et inserer dedans des boutons (objet Tbutton).
J'aimerai que ce fond ai une lageur visible de 500 mais que sa largueur reel soit de 1000 et qu'on puisse voir le reste grace de des ScrollBars.
J'ai beaucoup cherche quel objet utiliser pour faire ce fond. Et j'avoue que j'en ai pas trouvé d'objet satisfaisant. Je me suis donc resolu a utiliser un TDBImage. (Qui doit sans doute etre mal adapter)
Voila mon code:
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
25
|
procedure TForm1.Button1Click(Sender: TObject);
var
b1: tbutton;
b2: tbutton;
begin
b1:= tbutton.Create(DBImage1);
b1.Parent := DBImage1;
b1.Left:= 100;
b1.Top:= 100;
b1.Height:=50;
b1.Width:=50;
b1.Caption:='Bouton';
b1.Visible:= true;
b2:= tbutton.Create(DBImage1);
b2.Parent := DBImage1;
b2.Left:= 600;
b2.Top:= 100;
b2.Height:=50;
b2.Width:=50;
b2.Caption:='Bouton';
b2.Visible:= true;
end; |
Je rappelle que mon fond blanc DBImage1 fait 500 de large.
J'ai donc le bouton b1 qui s'affiche bien dans le DBImage. (il est positionné en absice 100)
Et le bouton b2 qui ne affiche pas puisqu'il est positionné à l'absice 600.
b2 est hors de la zone d'affichage.
J'aimerai mettre une ScrollBar au DBImage1 pour pouvoir voir l'absice jusqu'a 1000...
Premiere question:
N'exite t il pas un objet plus interessant pour acceuillir mes boutons?
Deuxieme question:
Comment ajouter des ScrollBars? faut il que les ScrollBar soit prevu par l'objet sur les quel on veut les ajouter?
:)
