FAQ C++ BuilderConsultez toutes les FAQ

1
2
3
AnsiString Texte; 
// Texte =...; 
ListBox1->Items->Add(Texte);

1
2
3
4
5
6
7
8
9
10
void __fastcall TForm1::ListBox1Click(TObject *Sender) 
{ 
  if (ListBox1->ItemIndex != -1) 
  { 
    if (ListBox1->Items->Strings[ListBox1->ItemIndex].LowerCase() == "auteur") 
    { 
      // Recherche par auteur 
    } 
  } 
}

ComboBox1->ItemIndex = ComboBox1->Items->IndexOf("Wie geht's");

ComboBox1->Style = csDropDownList;

1
2
3
4
void __fastcall TForm1::ComboBox1Enter(TObject *Sender) 
{ 
   ComboBox1->Perform(CB_SETDROPPEDWIDTH, 200, 0); 
}

1
2
3
4
5
6
void __fastcall TForm1::ComboBox1DrawItem(TWinControl *Control, int Index, TRect &Rect, TOwnerDrawState State) 
{ 
   TCanvas *pC = ComboBox1->Canvas; 
   pC->FillRect(Rect); 
   pC->TextOutA(Rect.Left + 2, Rect.Top, ComboBox1->Items->Strings[Index]); 
}

1
2
3
4
5
6
7
8
9
10
11
12
13
14
void __fastcall TForm1::ComboBox1Enter(TObject *Sender) 
{ 
   TCanvas *pC = ComboBox1->Canvas; 
   int Base = 0, Final; 
   for (int i = 0; i < ComboBox1->Items->Count; i ++) 
   { 
      if (pC->TextExtent(ComboBox1->Items->Strings[i]).cx > Base) 
      { 
         Base = pC->TextExtent(ComboBox1->Items->Strings[i]).cx; 
      } 
   } 
   Final = Base + 7; 
   ComboBox1->Perform(CB_SETDROPPEDWIDTH, Final, 0); 
}

1
2
3
4
5
6
void __fastcall TForm1::Button1Click(TObject *Sender) 
{ 
    TListItem *Item = ListView1->Items->Add(); 
    Item->Caption  = Edit1->Text; 
    Item->SubItems->Add(Edit2->Text); 
}

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
// on récupère le TListBox qui a lancé l'évènement, et son TCanvas 
TListBox * pListBox = ((TListBox *)Control); 
TCanvas * pCanvas = pListBox->Canvas; 
  
// on met les lignes paires en fond jaune 
if ((Index % 2)==0) 
{ 
   pCanvas->Brush->Color = clYellow; 
} 
  
// on met les lignes sélectionnées en jaune sur fond rouge 
if(State.Contains(odSelected)) 
{ 
   pCanvas->Brush->Color = clRed; 
   pCanvas->Font->Color = clYellow; 
} 
  
// on dessine le fond de la cellule 
pCanvas->FillRect(Rect); 
  
// on dessine le texte de la cellule 
AnsiString Data = pListBox->Items->Strings[Index]; 
Rect.left += 2; 
pCanvas->TextOut(Rect.Left,Rect.Top,Data);

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
//--------------------------------------------------------------------------- 
#include <vcl.h> 
#pragma hdrstop 
#include "Unit1.h" 
//--------------------------------------------------------------------------- 
#pragma package(smart_init) 
#pragma resource "*.dfm" 
TForm1 *Form1; 
int NoDrive0 = 0; 
//--------------------------------------------------------------------------- 
__fastcall TForm1::TForm1(TComponent* Owner) 
        : TForm(Owner) 
{ 
} 
//--------------------------------------------------------------------------- 
void __fastcall TForm1::DirectoryListBox1MouseDown(TObject *Sender, 
      TMouseButton Button, TShiftState Shift, int X, int Y) 
{ 
Label1->Caption = DirectoryListBox1->Directory; 
} 
//--------------------------------------------------------------------------- 
void __fastcall TForm1::Button2Click(TObject *Sender) 
{ 
// on élimine de DriveComboBox les lecteurs sans disque 
// on supprime les messages d'erreur sur les disques 
UINT oldErrorMode = SetErrorMode(SEM_FAILCRITICALERRORS); 
        int a = DriveComboBox1->Items->Count; // nb de disques 
// on commence par la fin sinon on a un problème 
// le lecteur 1 devient 0 après une suppression 
for(a; a >= 0;a--) 
        { 
        if (DiskSize(a) > -1) 
        { 
        if(NoDrive0 == 0) 
                { 
                DriveComboBox1->Items->Delete(a); // pas de disque on elimine 
                } 
        } 
        } 
// on retablit les messages d'erreur sur les disques 
SetErrorMode(oldErrorMode); // on restitue l'ancienne valeur 
NoDrive0 = 1; 
} 
//---------------------------------------------------------------------------

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
//--------------------------------------------------------------------------- 
#ifndef Unit1H 
#define Unit1H 
//--------------------------------------------------------------------------- 
#include <Classes.hpp> 
#include <Controls.hpp> 
#include <StdCtrls.hpp> 
#include <Forms.hpp> 
#include <Dialogs.hpp> 
#include <FileCtrl.hpp> 
//--------------------------------------------------------------------------- 
class TForm1 : public TForm 
{ 
__published: // IDE-managed Components 
        TDirectoryListBox *DirectoryListBox1; 
        TDriveComboBox *DriveComboBox1; 
        TLabel *Label1; 
        TButton *Button2; 
        void __fastcall DirectoryListBox1MouseDown(TObject *Sender, 
          TMouseButton Button, TShiftState Shift, int X, int Y); 
        void __fastcall Button2Click(TObject *Sender); 
private: // User declarations 
public:  // User declarations 
        __fastcall TForm1(TComponent* Owner); 
}; 
//--------------------------------------------------------------------------- 
extern PACKAGE TForm1 *Form1; 
//--------------------------------------------------------------------------- 
#endif