2015年8月30日
把消息送到默认窗口函数里，并非一点用都没有，可能会产生新的消息（以WM_WINDOWPOSCHANGED为例）
我在追踪执行：procedure TForm1.Button1Click(Sender: TObject);begin panel1.Left:=panel1.Left-10;end;并且屏蔽TWinControl.WMWindowPosChanged里的UpdateBounds函数后proced... Read More
posted @ 2015-08-30 05:41 findumars Views(2223) Comments(0) Diggs(0)
使用SetWindowPos API函数移动窗口后，还需修改Delphi的属性值，以备下次使用，否则就会出问题（不是API不起作用，而是使用了错误的坐标值）
单独改变坐标的代码如下，可不断左移：procedure TForm1.Button1Click(Sender: TObject);begin SetWindowPos(panel1.Handle, 0, panel1.Left-10, panel1.Top, panel1.Width, panel... Read More
posted @ 2015-08-30 04:46 findumars Views(505) Comments(0) Diggs(0)
Delphi调用WINAPI时到底应该是指针还是结构体（注意是Delphi变量本身就是指针）
看MSDN，GetWindowRect的说明如下：BOOL WINAPI GetWindowRect( _In_HWND hWnd, _Out_LPRECT lpRect // 注意，没*号指针);BOOL WINAPI GetWindowPlacement( _In_HWND hWnd, ... Read More
posted @ 2015-08-30 04:11 findumars Views(719) Comments(0) Diggs(0)
TWinControl.SetBounds与TWinControl.UpdateBounds赏析（定义和调用）
先看它们的函数内容：procedure TControl.SetBounds(ALeft, ATop, AWidth, AHeight: Integer);begin // 虚函数，TWinControl有覆盖函数 if CheckNewSize(AWidth, AHeight) and //... Read More
posted @ 2015-08-30 03:55 findumars Views(648) Comments(0) Diggs(0)