Création dynamique d'un bouton sous intraweb ?

**julesclaude** · 06/04/2009, 13h58

Bonjour à tous,
J'ai écrit ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure TIWForm2.IWButton1Click(Sender: TObject);
var xbouton : TIWButton;
var IWForm : TIWForm2;
begin
xbouton := TIWButton.Create(self);
xbouton.Parent:= IWForm;
xbouton.Width := 20;
xbouton.Height := 20;
xbouton.Top := 100;
xbouton.Left := 100;
end;

Pas d'erreur à l'exécution, mais je ne vois pas le bouton.

Merci d'avance

**evarisnea** · 06/04/2009, 19h51

:salut

et comme ceci ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
procedure TIWForm2.IWButton1Click(Sender: TObject);
var xbouton : TIWButton;
//var IWForm : TIWForm2;//tu n'utilises pas cette variable
begin
  xbouton := TIWButton.Create(self);
  xbouton.Parent:= self;
  xbouton.Width := 20;
  xbouton.Height := 20;
  xbouton.Top := 100;
  xbouton.Left := 100;
end;