ftwsnow

摘要： {private procedure DrawFocusRectangle(sender: TObject); public { Public declarations } end;}var Form1: TForm1; FocusRectangle: TShape;implementation{$R *.dfm}//窗体创建事件中加如下代码procedure TForm1.FormCreate(Sender: TObject);begin FocusRectangle := TShape.Create(Self); FocusRectangle.Shape := ... 阅读全文