程序见面问题：我的程序现在做见面由于Form很多，都采用bsNone形式，为了更好的见面每个Form上有10个以上的Image图片，在这中情况下如何

Question

问题
1、整个Form几乎让Image占完了，现在程序运行起来我想用鼠标可以移动Form，但是部分Image也有Click事件，请问用什么办法可以实现bsNone格式下Form可以移动。（出主Form外所有的Form都是动态生成的）
2、我这样做见面的方法正确吗？是否还有更好的方法

Answer 1

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
const
  SC_DragMove=$F012;
begin
  ReleaseCapture;
  PerForm(WM_SysCommand,SC_DragMove,0);
end;

Answer 2

还请教一个问题,我用Image覆盖Form时,四个角有明显的Form背景,如何去掉??

Answer 3

procedure TFrmMain.FormResize(Sender: TObject);
var 
  hr :thandle;
begin
  hr:=createroundrectrgn(0,0,width,height,10,10);
  setwindowrgn(handle,hr,true); 
end;10是四个角的圆弧半径