Créer un bouton dynamiquement

Créer un bouton dynamiquement - Delphi/Pascal - Programmation

Marsh Posté le 05-08-2008 à 21:37:01    

Bonjour,
 
Je suis en train d'essayer de créer un bouton dynamiquement avec Turbo Delphi (version gratuite), mais ça ne marche pas du tout. Voici le code que j'utilise. L'évènement Button1Click est bien appelé mais rien ne se passe :
 

procedure TForm1.Button1Click(Sender: TObject);
begin
  button := TButton.Create(Form1);
  button.Caption := 'Run-time';
  button.Width := 50;
  button.Height := 20;
  button.Top := 50;
  button.Left := 20;
  button.Visible := True;
end;


 
Quelqu'un voit ce qui ne va pas ? :??:  
 
Merci
 
LiHong


Message édité par konglihong le 05-08-2008 à 21:47:12
Reply

Marsh Posté le 05-08-2008 à 21:37:01   

Reply

Marsh Posté le 05-08-2008 à 21:46:55    

Ok c'est réglé, il suffit d'assigner la propriété Parent pour que le bouton devienne visible :
 

button.Parent = Form1;

Reply

Marsh Posté le 11-12-2008 à 21:48:37    

procedure TForm1.Button1Click(Sender: TObject);  
begin  
  button := TButton.Create(self); //self a la place de form
  button.Caption := 'Run-time';  
  button.Width := 50;  
  button.Height := 20;  
  button.Top := 50;  
  button.Left := 20;  
  button.Visible := True;
 button.Parent = Form1; //ajouter aussi ça
end;

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed