在panel上画矩形框？

Question

如题？谢谢了！

Answer 1

with TCanvas.Create do
try
  handle := GetDC(Panel1.Handle);
  Rectangle(0,0,10,10); 
finally
  releaseDC(Panel1.Handle,handle);
  free;
end;

Answer 2

with TCanvas.Create do
try
  handle := GetDC(Panel1.Handle);
  brush.Style := bsClear;//!!!!!!!!!!!!!!!!!!!1
  Rectangle(0,0,10,10); 
finally
  releaseDC(Panel1.Handle,handle);
  free;
end