稍微用脑子想了一下,图形控件没有句柄,因此先把自己的坐标改一改,然后只要把父控件的某些区域Invalidate一下就可以了,WM_PAINT消息一来,父控件就会重绘所有子图形控件,就达到了相应的效果。怪不得没看到调用SetWindowPos这样的函数。有空详细跟踪一下。
举例:
procedure TForm1.Button1Click(Sender: TObject); begin image1.Left := image1.Left - 10; end;
时间: 2024-10-14 10:43:38