Question

delphi中关于button的问题

就是和baidu的按钮一样,当鼠标滑过按钮的时候,会有橘黄色的边框,在delphi中是如何实现的?

Answer 1

哈哈，刚好在用DELPHI

procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Canvas.Pen.Width := 2;
Canvas.Pen.Color := clHighLight;
Canvas.MoveTo(Button1.Left,Button1.Top);
Canvas.LineTo(Button1.Left,Button1.Top+Button1.Height );
Canvas.Pen.Color := clBlue;
Canvas.LineTo(Button1.Left + Button1.width,Button1.Top+Button1.Height);
Canvas.LineTo(Button1.Left + Button1.width,Button1.Top);
Canvas.LineTo(Button1.Left,Button1.Top);
end;