Delphipage - la reference en Delphi
Accueil - Astuces - Composants - Programmes - Tutoriaux - Livres - Liens
 Sources
- Astuces
- Composants
- Programmes
- Tutoriaux
 Rechercher
- Delphipage
- Ngscan
 Ressources
- Lexique Delphi
- Livres
- News
- Patchs Delphi
 Liens
- Borland France
- CodeGear
- Les meilleurs sites

Astuces - Divers - Créer un composant dynamiquement en Delphi

Par exemple, créeons un composant de type "TButton" dynamiquement lorsque la fiche se créée.

Uses StdCtrls; //Vous devez ajouter l'unité "StdCtrls"

private
{ Déclarations privées }
procedure Button1Click(Sender: TObject);
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
var Button1:TButton;
begin
Button1:=TButton.Create(Self); //Crée le bouton ("Self" désigne l'objet dans lequel le bouton est crée)
Button1.Parent:=Form1; //Désigne le parent (Form1) du contrôle (Button1)
Button1.Caption:='Mon Bouton'; //Texte contenu dans le bouton
Button1.Height:=25; //Hauteur du bouton
Button1.Width:=75; //Largeur du bouton
Button1.Left:=8; //Emplacement du bouton à gauche
Button1.Top:=8; //Emplacement du bouton à droite
Button1.OnClick:=Button1Click; //Associe l'évenement "Button1Click" avec le bouton 1
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage('Mon message'); //Affiche un message dans une fenêtre
end;

end.

Pour les autres composants, on procède de la même manière.


Tous droits réservés - Contacts
Haut de la page