Disons que je voudrais créer un Second Tbuton nommé bout lorsqu'on clique sur boutton1.
J'ai essayé cela mais marche pas affiche rien du tout :
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
var
  Form1: TForm1;
  bout: Tbutton;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  bout:= tbutton.Create(self);
  bout.Left:= 400;
  bout.Top:= 150;
  bout.Visible:= true;
end;
Comme l'a deja dit la petite marionnette Pinocchio : "Il doit me manquer klk chose klk part!!! Mais quoi???"
Merci de m'eclairer