Salut à tous

Tout est dans le titre, j'aimerais créer un rectangle coloré dynamiquement.
Voici mon code (qui ne fonctionne pas (1 error)) :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
procedure TForm2.Button1Click(Sender: TObject);
var
 
TheRect: TRect;
 
begin
 TheRect := TRect.Create(Self);
 TheRect := Rect(10,10,100,100);
end;
Votre aide est la bienvenue,

A+