Bonjour,
j'ai une appli que je veux pouvoir agrandir en plein écran mais je ne sais pas si je gère bien le redimensionnement des composants de ma fiche.
Il y a surement un moyen plus simple pour gérer la mise en page après changement de la taille de la fenêtre.
Merci de m'éclairer là-dessus.

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
void __fastcall TForm1::FormResize(TObject *Sender)
{
        // Redimensionnement des Memo
        Memo1->Left = 8;
        Memo2->Left = 8;
        Memo1->Width = Form1->Width - 24;
        Memo2->Width = Form1->Width - 24;
 
        if (Memo1->Width < 610)  // Taille d'origine
        {
                Memo1->Height = 81;
                Memo2->Height = 81;
                Memo1->Top = 184;
                Memo2->Top = 288;
                Label8->Top = 272;
        }
        else  // Adaptation des tailles pour le plein écran
        {
                Memo1->Height = 162;
                Memo2->Height = 162;
                Memo2->Top = Memo2->Top + 81;
                Label8->Top = Label8->Top + 81;
        }
 
        // Redimensionnement des TCapture
        TCapture->Left = 8;
        TCapture->Width = Form1->Width - 24;
        TCapture2->Left = 8;
        TCapture2->Width = Form1->Width - 24;
}