//阴影效果
procedure TForm25.Button1Click(Sender: TObject);
var
x,y:integer;
i:integer;
begin
x:=0;
y:=0;
form25.canvas.Pen.Width:=1;
for i:=0 to 8 do
begin
form25.Canvas.Pen.Color:=$00404040;
form25.Canvas.MoveTo(Button1.Left+Button1.Width+x,Button1.Top+8);
form25.Canvas.LineTo(Button1.Left+button1.Width+x,Button1.Top+Button1.Height+8);
//
form25.Canvas.MoveTo(Button1.Left+8,Button1.Top+Button1.Height+y);
form25.canvas.LineTo(Button1.Left+Button1.Width+8,Button1.Top+Button1.Height+y);
inc(x);
inc(y);
end;
end;
//投影效果
procedure TForm25.Button2Click(Sender: TObject);
var
x,y:integer;
i:integer;
begin
x:=0;
y:=0;
form25.canvas.Pen.Width:=1;
for i:=0 to 8 do
begin
form25.canvas.Pen.color:=$00a0a0a0;
form25.canvas.MoveTo(Button2.Left+Button2.Width+x,Button2.Top+y);
form25.Canvas.LineTo(Button2.Left+Button2.Width+x,Button2.Top+Button2.Height+y);
form25.Canvas.Pen.Color:=$00606060;
form25.canvas.MoveTo(Button2.Left+x,Button2.Top+Button2.Height+y);
form25.Canvas.LineTo(Button2.Left+Button2.Width+x,Button2.Top+Button2.Height+y);
inc(x);
inc(y);
end;
end;