请问怎样拖动一个没有边框的窗体,但是焦点不是窗体,而是窗体上的图象.

Question

我告诉你, 你会不会给分呢? 

Answer 1

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin  if button = mbleft then
  begin
    releasecapture;
    perform (WM_syscommand, $F012, 0);
  end;
end;哈哈, 你走运, 因为我昨天刚做过一个

Answer 2

谢谢你,,你连续的为我解答了两个困扰我的问题,谢谢,但是我不是太明白那些语句,你可以稍微的教一下我吗?我的QQ号码是:83487818 谢谢你....