Form Coulor ?

Réponse acceptée !
voila , c'etait pourtant pas tres compliqué ...

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormPaint(Sender: TObject);
    procedure FormResize(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

const
  LARGEUR = 15;

var
  Form1: TForm1;

implementation


{$R *.dfm}

procedure TForm1.FormPaint(Sender: TObject);
var
  x,y:integer;
begin

  // couleur de bord
  Canvas.Pen.Color := ClRed;
  // couleur interieure
  Canvas.Brush.Color := ClRed;
  // dessinne
  // celui du dessus
 // form1.ClientHeight
 // form1.ClientWidth
  Canvas.Rectangle(0,0,ClientWidth,LARGEUR);
  // du dessous
  Canvas.Rectangle(0,ClientHeight-LARGEUR,ClientWidth,ClientHeight);
  // gauche
  Canvas.Rectangle(0,LARGEUR,LARGEUR,ClientHeight-LARGEUR);
  // droite
  Canvas.Rectangle(ClientWidth-LARGEUR,LARGEUR,ClientWidth,ClientHeight-LARGEUR);

end;

procedure TForm1.FormResize(Sender: TObject);
begin
  invalidate();
end;

end.

Réponse acceptée !
zut , les variables x,y n'ont pas de raisons d'être

Et la constant LARGUEUR sert justement a definir la Largueur de ta trace , il faut t'en servir ...

Réponse acceptée !
et le resultat :

Réponse acceptée !
bon ben je te met le lien vu que j'arrvie pas a afficher l'image

http://www.putfile.com/pic/8403415