Je m'aperçois que ces lignes de code sont inopérantes avec :
formactivate ou
formcreate

alors que ma ligne se trace correctement si j'incorpore ces lignes dans un buttonclick...

Question : comment obtenir une ligne à la création d'une forme ??


Code qui ne fonctionne pas :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
procedure TForm7.FormCreate(Sender: TObject);
 
begin
 
  canvas.Pen.Width:=  5;
  canvas.Pen.Color:=  ClBlack;
  Self.Canvas.MoveTo(0,320);
  Self.Canvas.LineTo(900,320);
 
 
End;
MERCI.