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.
|