Discussion :

[bilalini]

Salut tout le monde,

je voudrais avoir des reponses sur les deux points suivants:

1- je utilise une application MDI, et dans la creation des fiches j'utilise une image comme fond d'image de la fiche, et dans la fiche j'utilise des panels, est-ce que il y a une maniere de mettre les panels transparent (c a d: je vois le fond de l'image meme lorsque je vais mettre un panel).

2- les fenetres enfants de mon application ne s'affiche pas agrandi des leurs appel (comme dans les application SDI), mais elles s'ouvrent au milieux de la fenetre mere et puis s'agrandirent pendant leurs creation (la propriete de la fiche est definie : maximale), ca d'une part, et d'autre part lorsque je clique sur le button agrandir de la fenetre mere au bien enfant, l'application ne cree pas les barres de defilement horizontales et verticales pour voir tout le cntenu de la fiche en cours.

merci bcp d'avance pour votre aide.

[ShaiLeTroll]

Pour les TPanel Transparent, tu peux utiliser une WndProc sur même principe que le Tutoriel pour afficher une image dans le fond d'une application MDI

Il me semble qu'un TPanel avec ParentBackGround à True et les Thèmes XP activés utilise ce qu'il y a en dessous pour se dessiner !
La conséquence de ParentBackGround à True provoque aussi d'autres phénomènes, tous les controles Window (CheckBox, Radio...) conservent le thème XP en cours, cela ignore purement et simplement les choix de couleur fait en DesignTime ou même modifié en RunTime

Prend une Form, pose un TImage puis des Panels par dessus tu verras !
Idem, avec des TLabels sous un TPanel, il est visible via ParentBackGround
D'ailleurs, superpose des panels les un sur les autres, leurs libellés se confond !
le TGroupBox réagit la même façon pour le TImage et TLabel qui sont sous lui poser sur la Fenêtre mais pas pour l'imbrication

A tester sur Vista\Seven

Pour ton histoire de Scroll, c'est curieux, j'ai une appli avec MDI Child qui contient tous mes codes d'expérimentations !
j'affecte à la construction "WindowState := wsMaximized", ma fenêtre est plus grande que la zone MDI, j'ai bien une ScrollBar
Je n'ai pas spécifié WindowState dans l'IDE, surement une raison, ce code est très très vieux, et mon petit commentaire m'indique une probable anomalie constatée avec Delphi 3 ! Je le suppose !

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
procedure TFrmMain.BtnTestDiversClick(Sender: TObject);
begin
     if Assigned(FrmTestDivers) then
     begin
        if FrmTestDivers.WindowState = wsNormal then 
            FrmTestDivers.WindowState := wsMaximized
        else 
            FrmTestDivers.WindowState := wsNormal;
        end;
     end 
     else 
     begin
         FrmTestDivers := TFrmTestDivers.Create(Self);
         FrmTestDivers.WindowState := wsMaximized; // MDI
     end;
     FrmTestDivers.Show();
end;