上一页 1 2 3 4 5 下一页 else
Result := CallWindowProc(FPrevClientProc,
ClientHandle,
Msg,
wParam,
lParam);
end;
end;
//FormOnCreate
procedure TMainFrm.FormCreate(Sender: Tobject);
begin
FClientInstance := MakeObjectInstance(ClientWndProc);
FPrevClientProc := Pointer(GetWindowLong(ClientHandle,GWL_WNDPROC));
SetWindowLong(ClientHandle,GWL_WNDPROC, LongInt(FClientInstance));
end;
2．给窗体添加皮肤
//在窗体中放一名为Image1的TImage控件,并设置位图
//在窗体的private节中声明过程
procedure WMEraseBkgnd(var m: TWMEraseBkgnd); message WM_ERASEBKGND;
…………..
在实现部分书写代码如下：
procedure Tform1.WMEraseBkgnd(var m : TWMEraseBkgnd);
begin
m.Result := LRESULT(False);
end;
上一页 1 2 3 4 5 下一页 |
