uses LCLIntf; procedure TForm1.FormPaint(Sender: TObject); begin DrawFocusRect(canvas.Handle, rect(40, 40, 100, 150)); //or the same: canvas.
確定! 回上一頁