فورم متدرج اللون

هذا الكود لجعل لون الفورم متدرج

procedure TForm1.FormPaint(Sender: TObject);

var

Row,Ht: word;

begin

Ht := (ClientHeight + 255) div 256;

For Row := 0 to 255 Do

With Canvas Do Begin

Brush.Color := Rgb(Row,0,0);

FillRect(Rect(0,Row*Ht,ClientWidth,(Row+1)*Ht));

end;

حيث يتم وضع الكود فى الحدث on paint للفورم

ويتم اختيار اللون عن طريق تغيير الأرقام الى اللون المحدد فى السطر

Brush.Color := Rgb(Row,0,0);

اما اذا أردت تغيير تدرج اللون يمكنك تغيير اشارة ال* الى + فى السطر الأخير من الكود

;)