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